(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    369884,       9406]
NotebookOptionsPosition[    353630,       9059]
NotebookOutlinePosition[    354304,       9085]
CellTagsIndexPosition[    354223,       9080]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.1", "HistoryData",
  CellTags->"New",ExpressionUUID->"3b44abf9-20c1-4253-9078-3ce835f4040c"],
 " | Modified in: ",
 Cell[" 0.4", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"5df1c28d-b4e1-4d02-830a-5e5797e70a34"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"b0016bc4-9447-4edb-a375-22a01d29f67e"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"0582ad58-f12a-49bc-b105-072db52647f4"]
}], "History",
 CellChangeTimes->{{3.668242180521331*^9, 3.668242183206831*^9}},
 CellID->1247902091,ExpressionUUID->"1fb085bc-c15a-486f-b162-adec3131e850"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"6f2396c0-2090-47fd-9408-6dee3441ccf0"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"3f08ab79-fb62-4d3a-a265-2caf2bee7898"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{{3.668242151929654*^9, 3.668242152039597*^9}, 
   3.743836571372693*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"c51f5cd2-3ae5-4810-9095-1cee94303846"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836571755876*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"153e3ed9-a142-452b-ad9a-6d6ec58bcbc0"],

Cell["MaXrd/ref/StructureFactorTable", "Categorization",
 CellChangeTimes->{{3.668198371636053*^9, 3.668198377339381*^9}, 
   3.743836572139802*^9},
 CellLabel->"URI",ExpressionUUID->"b08e3d72-aa70-419d-80e6-b21ab3fc521b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"f0fca856-ae34-4ab0-8f4b-85eef6082726"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"6f2106bd-55ed-44da-8bb5-5b9fce45d875"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"01db8687-41c0-4695-865c-39fdd1457dc2"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"7cfe245d-a8a7-44b2-8bc0-ce9d0a68276e"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"dcb8b3cc-0eda-488c-ac46-2979b3efcf63"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"fea795dc-d1e4-4eaa-93c9-7f7bc8330478"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"8d57821b-e224-4b80-9fa5-7591e009aa52"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"5ef2be15-2bae-44ed-9304-c45e9c9c4f04"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"e610e31c-9103-4511-823b-7b50e02e2745"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"952310f9-9324-448b-a1d3-34962c361d52"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"9b52d3cc-f78b-48d6-af21-473887d54cd2"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"2f2e6e5c-84b9-447c-bb81-a62f19306b47"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"948e07c3-111a-41fa-82d8-ae2ac0ed02a2"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"d8302a04-007e-4f9d-9ad2-fc2e389da78d"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"f217f087-8aaa-4994-9d21-53dd90609bd5"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"31ceb816-317b-4ce2-b805-e5861ee79f70"],

Cell[TextData[{
 "A. Authier, ",
 StyleBox["Dynamical Theory of X-Ray Diffraction",
  FontSlant->"Italic"],
 ". Oxford University Press, 2001."
}], "Details",
 CellChangeTimes->{3.6597247453458147`*^9},
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"a7678ac9-9135-4d6c-bc4e-8c016614cdf9"]
}, Closed]],

Cell[CellGroupData[{

Cell["StructureFactorTable", "ObjectName",
 CellChangeTimes->{{3.668198359885668*^9, 3.668198364883567*^9}},
 CellID->1224892054,ExpressionUUID->"588d68dd-b00a-4ba7-ba15-0661788eba37"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"7f38e392-2219-47d6-a5d8-9c593a137cab"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["StructureFactorTable",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/StructureFactorTable"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "1fae1592-7680-44ee-b5d5-b89380bcf63d"],
 " \[LineSeparator]produces a table of structure factors, phases, Bragg \
angles, extinction lengths and Darwin widths for a given ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "7e4c8486-1299-4542-9b5f-dd4df5ceaf52"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "e04d46bc-43c4-4e7d-9a2d-11bdc9bcfa09"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["StructureFactorTable",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/StructureFactorTable"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "9daee3d1-3fc7-489f-b1bb-398d75f9df5b"],
 "\[LineSeparator]produces the same table for a given ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "10a7fc65-f333-48d6-a6fb-038f1dd89e16"],
 " but using wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "39ec04ab-b5a3-41b3-b4ac-30be0ec87db3"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "3aecded5-63c4-4b89-8d31-559240a27ee7"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["StructureFactorTable",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/StructureFactorTable"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    StyleBox["\[Lambda]", "TR"], ",", 
    StyleBox["condition", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "90b9a31b-b33c-48a8-8c3d-96806541b616"],
 "\[LineSeparator]produces the same table, but reflections that do not follow \
the pattern of ",
 Cell[BoxData[
  StyleBox["condition", "TI"]], "InlineFormula",ExpressionUUID->
  "d5192b42-dcf8-4d3b-8e8b-fa335f92ac39"],
 " will be disregarded."
}], "Usage",
 CellChangeTimes->{{3.6584320763444223`*^9, 3.65843208331914*^9}, {
  3.65843213186957*^9, 3.658432199064736*^9}, {3.65971644439638*^9, 
  3.659716517131649*^9}, {3.659716596193819*^9, 3.6597166054655724`*^9}, {
  3.6597166413527727`*^9, 3.6597166809527683`*^9}, {3.6681983955899267`*^9, 
  3.668198428747972*^9}, {3.668198471050353*^9, 3.668198479866869*^9}, {
  3.6845525523343773`*^9, 3.6845526304113293`*^9}, {3.7153310928487988`*^9, 
  3.715331189975375*^9}, {3.7174869344411287`*^9, 3.717486938565144*^9}, {
  3.7303801542284403`*^9, 3.730380160930504*^9}},
 CellID->982511436,ExpressionUUID->"6d1dec16-1b25-44a2-9ffd-2ac1de88626f"],

Cell["Options concerning the calculations:", "Notes",
 CellChangeTimes->{{3.730380095266329*^9, 3.730380109979137*^9}},
 CellID->1803112370,ExpressionUUID->"e06f89bd-5871-4454-a08a-3a9439a34ec6"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "269257d7-f98d-4afe-8e08-bbfd71d434a4"], "\"\<CustomReflections\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], 
    RowBox[{
    Cell["See", "TableText",ExpressionUUID->
      "c722f069-1387-49e6-bac4-c1c7f5b58959"], " ", 
     ButtonBox["ReflectionList",
      BaseStyle->"Link",
      ButtonData->"paclet:MaXrd/ref/ReflectionList"]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "ac6f34d8-5719-43e2-b97d-b1549c1e1eac"], "\"\<Keep\>\"", 
    ButtonBox["All",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/All"], Cell["\<\
truncates the table so that only a chosen number of reflections are displayed\
\
\>", "TableText",ExpressionUUID->"a000718e-82d6-4cc9-b1c2-4e76bf1a23b7"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "d79202a7-4d64-482c-a0ad-ad85c223dd0f"], "\"\<Polarisation\>\"", 
    "\"\<\[Pi]\>\"", Cell[TextData[{
     "\[Pi] (",
     Cell[BoxData[
      FormBox[
       RowBox[{"C", "=", 
        RowBox[{"cos", " ", "2", "\[Theta]"}]}], TraditionalForm]], 
      "InlineMath",ExpressionUUID->"d38bcabb-e429-4b62-b214-daea929411a9"],
     ") or \[Sigma] (",
     Cell[BoxData[
      FormBox[
       RowBox[{"C", "=", "1"}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"04fc603d-b694-4f30-bd5b-ddecdbd4151d"],
     ") polarisation"
    }], "TableText",ExpressionUUID->"315abb14-e635-45f7-8b72-b458bf182c17"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "37d2c62f-4d6d-42ff-8c49-60f5ed3fc0ed"], "\"\<ReflectionListKeep\>\"", 
    "50", 
    RowBox[{Cell[TextData[{
      "sets the value of the ",
      StyleBox["\"Keep\" ", "InlineCode"],
      "option in"
     }], "TableText",ExpressionUUID->"f8b51b65-2c44-4499-b3cc-4305c25f580c"], 
     
     ButtonBox["ReflectionList",
      BaseStyle->"Link",
      ButtonData->"paclet:MaXrd/ref/ReflectionList"]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "482be48b-066b-431a-9158-0897cee2b2d9"], "\"\<SplitEquivalent\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], 
    RowBox[{
    Cell["see", "TableText",ExpressionUUID->
      "4c005622-bcaa-4f8b-847a-40628bc054f9"], " ", 
     ButtonBox["ReflectionList",
      BaseStyle->"Link",
      ButtonData->"paclet:MaXrd/ref/ReflectionList"]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "81d5d800-95d1-4095-bef4-6d99474a2aa2"], "\"\<Threhsold\>\"", 
    SuperscriptBox["10.", 
     RowBox[{"-", "6"}]], 
    RowBox[{
    Cell["see", "TableText",ExpressionUUID->
      "6a93d08e-011c-40f0-a035-b5cc0cc48a44"], " ", 
     ButtonBox["StructureFactor",
      BaseStyle->"Link",
      ButtonData->"paclet:MaXrd/ref/StructureFactor"]}]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.714928980857592*^9, 3.7149290425465603`*^9}, {
  3.714929080497106*^9, 3.714929089510721*^9}, {3.717139072269504*^9, 
  3.717139163156084*^9}, {3.730384488746427*^9, 3.730384520126526*^9}, {
  3.7303845815952597`*^9, 3.730384653846168*^9}, {3.7303848740265713`*^9, 
  3.7303848786628933`*^9}, {3.7303861197954903`*^9, 3.730386167126904*^9}, {
  3.730386212667884*^9, 3.730386423879656*^9}},
 CellID->410498224,ExpressionUUID->"9c09749f-fea2-40be-aa7a-3c0e553a5cb9"],

Cell["Options concerning the formatting of the table:", "Notes",
 CellChangeTimes->{{3.730380087156289*^9, 3.730380093787418*^9}},
 CellID->1224660626,ExpressionUUID->"dd5b1f70-ba2d-470d-ad3e-1c56d397fb89"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "aff11226-4a0c-4100-97cd-4cd58a8c7171"], "Background", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "None", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "LightGray"}], "}"}]}], "}"}]}], "}"}], Cell[
    TextData[{
     "see ",
     ButtonBox["Background",
      BaseStyle->"Link",
      ButtonData->"paclet:ref/Background"]
    }], "TableText",ExpressionUUID->"6d59616c-ad95-45fd-a081-e22c60b298c0"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "5e1e585f-7af6-4f18-badd-348052f2afed"], "Dividers", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", "True", "}"}], ",", "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"None", ",", "None", ",", "True"}], "}"}]}], "}"}], Cell[
    TextData[{
     "see ",
     ButtonBox["Dividers",
      BaseStyle->"Link",
      ButtonData->"paclet:ref/Dividers"]
    }], "TableText",ExpressionUUID->"7bc353f8-1523-471c-9c20-a65de66826ce"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "c925d99e-2b30-4403-98af-fe50bcd0608b"], "\"\<NumberStyle\>\"", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], Cell[
    "style used for numbers", "TableText",ExpressionUUID->
     "9785812e-74b8-4bae-977d-d82c3807a176"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "738dec1a-0799-47b5-a291-3731614d2236"], "\"\<Sort\>\"", 
    RowBox[{"-", "2"}], Cell["\<\
determines which column the table will be sorted by. Negative values reverses \
the direction\
\>", "TableText",ExpressionUUID->"67572b8c-9d45-443c-a903-6ceef4ab6c30"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b68523d4-6ccb-4817-b536-c3426406a2b5"], "\"\<SubtitleStyle\>\"", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Gray"}], "}"}], Cell[
    "style used in second row", "TableText",ExpressionUUID->
     "b6dac60a-da98-4bcf-915d-e696e3d813a1"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "6ac4a607-f337-47d9-aa95-6e6c1344a797"], "\"\<TitleStyle\>\"", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Baskerville\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "15"}]}], "}"}], Cell[
    "style used in title row", "TableText",ExpressionUUID->
     "391d657e-47cb-42b0-a10d-820d7c4ea30f"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.659720733224931*^9, 3.659720739583748*^9}, {
  3.659720816205982*^9, 3.659720854860821*^9}, {3.65972093181489*^9, 
  3.659720967226379*^9}, {3.659721050604021*^9, 3.659721089231358*^9}, {
  3.6597211600500517`*^9, 3.659721293530599*^9}, {3.659721341684297*^9, 
  3.659721359313106*^9}, {3.6597214414105186`*^9, 3.659721447398445*^9}, {
  3.668200680679071*^9, 3.668200690021861*^9}, {3.6797608338895473`*^9, 
  3.6797609154904327`*^9}, {3.679763875271924*^9, 3.679763957077108*^9}, {
  3.679764019867585*^9, 3.679764037212669*^9}, {3.6816350990279617`*^9, 
  3.681635131619855*^9}, {3.681635165635747*^9, 3.681635165931644*^9}, {
  3.685780191023715*^9, 3.685780209313892*^9}, {3.685780250517269*^9, 
  3.6857802785635757`*^9}, {3.685782564058375*^9, 3.685782769549816*^9}, {
  3.685782817215704*^9, 3.685782817770275*^9}, {3.73038466085421*^9, 
  3.7303846746757793`*^9}},
 CellID->633778926,ExpressionUUID->"b57edaf1-378d-4c4f-b030-e4a3d760aa80"],

Cell[TextData[{
 "All reflections must pass tests for systematic absence and undefined Bragg \
angle. ",
 Cell[BoxData["\<\"ReflectionListKeep\"\>"], "InlineFormula",ExpressionUUID->
  "3e64a5b1-b6c0-4c20-8487-219335a1be8c"],
 " controls how many of such reflections are passed through to the \
calculations of structure factor, Darwin width and \
Pendell\[ODoubleDot]sung/extinction distance. A value for the ",
 Cell[BoxData["\<\"Keep\"\>"], "InlineFormula",ExpressionUUID->
  "63006e2a-e458-43f4-a831-1f4481fa73e5"],
 " option may be set to further truncate this list of reflections, and will \
be applied after the ",
 Cell[BoxData["\<\"Sort\"\>"], "InlineFormula",ExpressionUUID->
  "879307f0-2f33-4379-958c-70e34ca0610e"],
 " option."
}], "Notes",
 CellChangeTimes->{{3.685780305808642*^9, 3.6857803169676447`*^9}, {
  3.685780353990864*^9, 3.6857803620927362`*^9}, {3.685780396784708*^9, 
  3.685780412749791*^9}, {3.685780448135469*^9, 3.685780675726616*^9}, {
  3.730384698589855*^9, 3.730384713154027*^9}},
 CellID->1882481983,ExpressionUUID->"38b3757d-c566-44a7-84e4-e146db049459"],

Cell[TextData[{
 "For a given reflection to be listed in the table, it has to not be extinct \
and also yield ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "6aece111-6fd8-496f-aa1e-c76267717049"],
 " when tested by the ",
 Cell[BoxData[
  StyleBox["condition", "TI"]], "InlineFormula",ExpressionUUID->
  "360a6035-2b3f-4379-8aed-d7ae227ebb5a"],
 ". Sometimes, the table may appear to not comply with the condition set by \
",
 Cell[BoxData[
  StyleBox["condition", "TI"]], "InlineFormula",ExpressionUUID->
  "f1f50ef8-8905-414c-a4db-79969d51555d"],
 ". This may be due to symmetry equivalence with one of the reflections \
listed in the table, and can be checked by using the setting ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "85824063-ac69-4cbb-a9ba-820b75437ba8"],
 " for the ",
 Cell[BoxData["\<\"SplitEquivalent\"\>"], "InlineFormula",ExpressionUUID->
  "0c4bf9f7-cf27-4d2b-be25-33ccee56d8c0"],
 " option."
}], "Notes",
 CellChangeTimes->{{3.659722361951537*^9, 3.659722464944333*^9}, {
  3.659723804176276*^9, 3.659723836510372*^9}, {3.6597239828761597`*^9, 
  3.6597240422976313`*^9}, {3.659724115585189*^9, 3.659724175118306*^9}, {
  3.659724232478303*^9, 3.659724322293154*^9}, {3.659725388393976*^9, 
  3.659725393873851*^9}, {3.6681985778484488`*^9, 3.668198592590785*^9}, {
  3.66819864784794*^9, 3.668198653038909*^9}},
 CellID->1343776438,ExpressionUUID->"251c265a-46df-460d-9351-2c9ca9c04157"],

Cell["\<\
Overbars must be typed using underscores as overscripts. This may be done by \
first highlighting the digit, then pressing \[ControlKey]+7 (for overscript) \
and finally inserting an underscore (_) in the box above.\
\>", "Notes",
 CellChangeTimes->{{3.669560388114991*^9, 3.6695604041605787`*^9}, {
  3.669560437951807*^9, 3.669560487350461*^9}, {3.669560607149558*^9, 
  3.669560679233862*^9}, {3.669560746641282*^9, 3.6695607514320297`*^9}, {
  3.669560783552546*^9, 3.6695608203504763`*^9}, {3.669561099945606*^9, 
  3.669561171982006*^9}, {3.6695612227497673`*^9, 3.669561234524822*^9}},
 CellID->1851698817,ExpressionUUID->"75c64b47-c809-4111-ac4c-f4ae1b6d9235"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"9675e08a-6bec-4589-aead-6a075f05e1ac"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"b11df7fa-c09c-40f5-8c65-58da3e202241"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"53567de9-2f3d-486d-933f-29fa08250dc7"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"aeaadb65-96cf-46de-bcd2-205334489f0c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"c5169ccf-44a0-413d-9a40-f72a57b12484"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"0d8162cf-8cef-426c-8270-eb9a379e5de4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"b0a93234-b73a-451e-8fef-7ee036a2d338"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"a228e23b-d569-465e-923f-09f9a58ccad6"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectionList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReflectionList"]], "InlineFormula",
  ExpressionUUID->"68bead66-43ba-4b38-bb22-fcfa951637a1"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExtinctionLength",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ExtinctionLength"]], "InlineFormula",
  ExpressionUUID->"cb7823d6-81d8-4d5a-b92f-399cf035a6aa"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["BraggAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/BraggAngle"]], "InlineFormula",
  ExpressionUUID->"296b4b6a-46a5-4fbb-bf38-1bf277454761"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["DarwinWidth",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/DarwinWidth"]], "InlineFormula",
  ExpressionUUID->"f37b767c-7b0a-445f-b600-b2e48af4f5e0"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"498a63df-c95f-423e-b19d-cc77325fc1cd"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"eef34472-4a82-4cb7-9b6a-e282ee4a494d"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetAtomicScatteringFactors",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetAtomicScatteringFactors"]], 
  "InlineFormula",ExpressionUUID->"04d8e929-b95b-46c2-85ce-496f2b5300e4"]
}], "SeeAlso",
 CellChangeTimes->{{3.659724726739222*^9, 3.659724727609342*^9}, {
  3.730399788803588*^9, 3.730399838198936*^9}, {3.737968451016487*^9, 
  3.7379684510166273`*^9}, {3.737968482967084*^9, 3.7379684829672623`*^9}, {
  3.74386586441116*^9, 3.743865864411585*^9}},
 CellID->2007954848,ExpressionUUID->"9ce76da8-5535-4a7b-9f0f-83cd31bea5a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"fba1337c-f7ba-4659-ba0a-831629bb3935"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"c7632d91-c6c8-4b33-904f-22e301a6b587"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"aa0e7b56-6d5b-48d8-89b9-a396728d8b96"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "1.541"}], "]"}]], "Input",
 CellChangeTimes->{{3.685781831103208*^9, 3.685781897434886*^9}, 
   3.730386484604122*^9},
 CellLabel->"In[1]:=",
 CellID->103420319,ExpressionUUID->"232c8160-642b-4c1a-846f-9b0a174bea36"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"60.366\"\>",
       60.36593111012438,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.250\"\>",
       -178.2464323538394,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.225\"\>",
       14.225141861196064`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.950\"\>",
       6.949945265772178,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.630\"\>",
       29.630109256640097`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"58.440\"\>",
       58.44015044169046,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.560\"\>",
       -177.56488262474195`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.576\"\>",
       34.57576385715674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.735\"\>",
       17.735346813729546`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.919\"\>",
       5.91905245802125,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"50.783\"\>",
       50.78343245873179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.716\"\>",
       2.7162204349076013`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.030\"\>",
       44.03018259509353,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"214.600\"\>",
       214.60496090520053`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.457\"\>",
       0.457395522197153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"45.685\"\>",
       45.68481847104603,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.750\"\>",
       -177.75399944031628`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.070\"\>",
       28.069511748199865`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.491\"\>",
       14.491356040153205`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.152\"\>",
       8.15249602911637,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.515\"\>",
       44.51503767869419,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.004\"\>",
       3.003588775674619,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"53.375\"\>",
       53.37524934601061,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.752\"\>",
       28.75203132686249,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.563\"\>",
       3.5632329667459843`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.142\"\>",
       39.14173266887057,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.541\"\>",
       2.540953742931472,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.200\"\>",
       38.20040072999486,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.080\"\>",
       40.08028850874672,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.518\"\>",
       2.518266067326573,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.153\"\>",
       34.15308768965721,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.823\"\>",
       2.8226957102956107`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.493\"\>",
       47.49329647090666,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"124.250\"\>",
       124.25484779043467`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.793\"\>",
       0.7925311027435119,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.153\"\>",
       34.15308768965721,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.823\"\>",
       2.8226957102956107`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.493\"\>",
       47.49329647090666,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"124.250\"\>",
       124.25484779043467`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.793\"\>",
       0.7925311027435119,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(135)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.005\"\>",
       30.00524392595523,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.114\"\>",
       3.1142893385405817`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.070\"\>",
       57.07019290718499,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.060\"\>",
       30.05962503457221,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.576\"\>",
       3.576385900021137,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.437\"\>",
       29.436951920935872`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 13}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.68578184257902*^9, 3.685781901982094*^9}, {
   3.714718828032189*^9, 3.7147188366916313`*^9}, 3.7303864903059063`*^9, 
   3.730398586669911*^9, 3.730398815833602*^9},
 CellLabel->"Out[1]=",
 CellID->1552924903,ExpressionUUID->"ad2cce55-dc1d-4e71-83c7-311a9673ce21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "5be28905-0555-400f-a25b-6e3f59e8dc26"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->35493731,ExpressionUUID->"77de089b-973a-4436-9e36-0ffbed4a3183"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Germanium\>\"", ",", "1.541", ",", 
   RowBox[{"\"\<Sort\>\"", "\[Rule]", "4"}], ",", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "7"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.685781976611361*^9, 3.6857820090212727`*^9}, {
  3.730386503437146*^9, 3.730386503691328*^9}},
 CellLabel->"In[1]:=",
 CellID->1680977441,ExpressionUUID->"8a507fef-1efb-4fb1-b779-142142ae1f60"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"146.850\"\>",
       146.846700448011,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.070\"\>",
       -178.06940194265727`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.643\"\>",
       13.643280521806222`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.196\"\>",
       3.195812080721367,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"66.960\"\>",
       66.96038919068629,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"175.700\"\>",
       175.7039993224613,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.770\"\>",
       -177.76700343437062`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.655\"\>",
       22.655182839996602`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.375\"\>",
       3.3752923197894655`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.883\"\>",
       40.88335565067433,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"114.930\"\>",
       114.9286241034018,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.620\"\>",
       -177.6172182102761,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.851\"\>",
       26.850792523008476`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.130\"\>",
       6.130127302928151,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.857\"\>",
       19.856744436827064`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.148\"\>",
       28.148115780494006`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"144.700\"\>",
       144.69935540523971`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.380\"\>",
       -177.38086530038487`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.006\"\>",
       33.00641101330639,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.090\"\>",
       7.0900807183819845`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.145\"\>",
       15.144612344377373`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"95.929\"\>",
       95.92856272169008,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.758\"\>",
       2.7575311978304495`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.414\"\>",
       36.41352617398211,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.725\"\>",
       14.72531549954014,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.973\"\>",
       6.973082297170316,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"122.620\"\>",
       122.61844604050091`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.986\"\>",
       2.985570470145661,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"41.848\"\>",
       41.84815598183596,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.979\"\>",
       30.97856761568059,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.186\"\>",
       3.1860691024111008`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 9}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.685781991762526*^9, 3.6857820192243547`*^9}, 
   3.714718842162525*^9, 3.7303865100099497`*^9, 3.7303988208072166`*^9},
 CellLabel->"Out[1]=",
 CellID->406966685,ExpressionUUID->"2e007baf-d1ba-4370-b766-9e9b5454f403"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "29b0947e-9436-4f78-90f7-146362f8a069"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->2075172877,ExpressionUUID->"460a4135-2023-4483-91e1-f803e58d9feb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<LanthanumHexaboride\>\"", ",", "1.541", ",", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "10"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.715330822845929*^9, 3.715330856618395*^9}, {
   3.715330948184062*^9, 3.715330957126379*^9}, 3.715331267794248*^9, {
   3.7303849757521544`*^9, 3.730384975972309*^9}, {3.730385006165101*^9, 
   3.73038507077836*^9}},
 CellLabel->"In[1]:=",
 CellID->148632812,ExpressionUUID->"91acb42a-9b10-4f29-b4b9-430c4af71f2c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.237\"\>",
       49.23735083733447,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.587\"\>",
       10.587402540906407`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.726\"\>",
       18.725567441884692`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4.232\"\>",
       4.23214316526952,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.120\"\>",
       38.120484601358434`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(011)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"48.802\"\>",
       48.80157824368276,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.677\"\>",
       10.67723151147814,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.196\"\>",
       15.196159926975362`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.930\"\>",
       3.929810790577646,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.344\"\>",
       49.343603816088695`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(002)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.794\"\>",
       47.79393963716358,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.913\"\>",
       10.913296123096131`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.759\"\>",
       21.758796052432263`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4.773\"\>",
       4.773063205086644,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.849\"\>",
       29.849213936146654`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(122)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"42.503\"\>",
       42.50278386284099,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.299\"\>",
       12.299419077391688`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.783\"\>",
       33.7830691508163,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.199\"\>",
       10.199077189160796`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.406\"\>",
       10.406369026456886`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(012)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"41.053\"\>",
       41.05256583635356,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.721\"\>",
       12.720953898730079`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"24.485\"\>",
       24.485014189426543`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.138\"\>",
       6.138485252487579,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.186\"\>",
       21.185526997517215`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(013)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.140\"\>",
       40.140127267923305`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.031\"\>",
       13.031229340159891`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"35.883\"\>",
       35.88273238098234,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.171\"\>",
       13.170764370895903`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.842\"\>",
       7.842366004048117,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(033)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.022\"\>",
       38.021624849953284`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.785\"\>",
       13.785358313212392`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"51.848\"\>",
       51.84788948388039,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.376\"\>",
       18.376152555541847`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.495\"\>",
       5.494847110554653,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"37.955\"\>",
       37.95486859040864,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.805\"\>",
       13.80491858310199,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.851\"\>",
       47.850815137416284`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"43.871\"\>",
       43.871122739270554`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.247\"\>",
       2.2472837493120283`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(001)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"37.660\"\>",
       37.66031414359011,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.867\"\>",
       13.86672247151434,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.682\"\>",
       10.681539539897797`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4.717\"\>",
       4.716680053679021,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.097\"\>",
       57.097211364963215`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.803\"\>",
       34.80291789374176,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.046\"\>",
       15.045651154379204`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.618\"\>",
       31.617700158294788`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.555\"\>",
       10.55511561925055,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.410\"\>",
       10.409607279673756`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 12}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.71533126369625*^9, {3.7153313047652073`*^9, 3.715331319655551*^9}, {
   3.730385009763062*^9, 3.730385073233101*^9}, 3.7303865275018587`*^9, 
   3.7303988254062967`*^9},
 CellLabel->"Out[1]=",
 CellID->451487502,ExpressionUUID->"b1618571-ec7b-4cbd-a9b7-377050768243"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"e58e5c6e-fc63-4129-8aec-e9103a4d2617"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "ebb00f93-62b1-4e19-b5a9-2503d5e43922"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"619b4acd-c345-4d43-90f0-bcacd3b4246b"],

Cell[TextData[{
 "To get an overview of which crystals are available, simply evaluate ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"aacabe96-3374-4bdb-8492-0df7e9d02abb"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.659726386598538*^9, 3.659726403218026*^9}, {
   3.6597264416101503`*^9, 3.65972647668827*^9}, {3.659726537680146*^9, 
   3.659726579469942*^9}, {3.668405677220313*^9, 3.668405713956934*^9}, {
   3.6845526920624933`*^9, 3.684552704345693*^9}, 3.7420155109216747`*^9},
 CellID->1300113681,ExpressionUUID->"1d74cc44-f01d-461a-a740-aee67f8ff04e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "@", "$CrystalData"}]], "Input",
 CellChangeTimes->{{3.659725452296962*^9, 3.659725455774522*^9}, {
  3.684552708205388*^9, 3.684552744600679*^9}},
 CellLabel->"In[1]:=",
 CellID->436292313,ExpressionUUID->"39312c95-f5b4-4e6c-992d-270d272b1606"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Aluminium\"\>", ",", "\<\"Austenite\"\>", 
   ",", "\<\"CalciumFluoride\"\>", ",", "\<\"Cobalt(II)Fluoride\"\>", 
   ",", "\<\"Copper\"\>", ",", "\<\"CopperTungstenOxide\"\>", 
   ",", "\<\"Corundum\"\>", ",", "\<\"Diamond\"\>", ",", "\<\"Ferrite\"\>", 
   ",", "\<\"GalliumArsenide\"\>", ",", "\<\"Germanium\"\>", 
   ",", "\<\"Glycyl-L-alanine\"\>", ",", "\<\"Ice\"\>", 
   ",", "\<\"LanthanumHexaboride\"\>", ",", "\<\"LithiumCobaltate\"\>", 
   ",", "\<\"LithiumManganesePhosphate\"\>", ",", "\<\"ManganeseSilicon\"\>", 
   ",", "\<\"Nickel\"\>", ",", "\<\"OxalicAcid\"\>", 
   ",", "\<\"Perovskite\"\>", ",", "\<\"Polonium\"\>", 
   ",", "\<\"PrussianBlue\"\>", ",", "\<\"Quartz\"\>", ",", "\<\"Silicon\"\>",
    ",", "\<\"Silver\"\>", ",", "\<\"Sodalite\"\>", 
   ",", "\<\"SodiumChloride\"\>", ",", "\<\"Sphalerite\"\>", 
   ",", "\<\"Tungsten\"\>", ",", "\<\"Zinc\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6597254561130753`*^9, 3.659726481692865*^9, 3.6681987123126917`*^9, {
   3.6845527097804947`*^9, 3.6845527476433897`*^9}, 3.684552826390012*^9, 
   3.6857813278029623`*^9, 3.714718853747491*^9, 3.714718891906275*^9, 
   3.730386532752527*^9, 3.7303988326548223`*^9, 3.742015463812204*^9, {
   3.742015495914489*^9, 3.742015505934156*^9}},
 CellLabel->"Out[1]=",
 CellID->745035991,ExpressionUUID->"5f71eded-cd3b-422c-b3c7-44601bcad55b"]
}, Open  ]],

Cell["\<\
As an example, let the wavelength be 1.541 \[CapitalARing] and the crystal \
sodium chloride (NaCl):\
\>", "ExampleText",
 CellChangeTimes->{{3.659725564527192*^9, 3.659725593980886*^9}, {
  3.659725794473481*^9, 3.6597260447344637`*^9}, {3.659726180771331*^9, 
  3.6597261976388063`*^9}, {3.659726794921791*^9, 3.6597268373278713`*^9}, {
  3.66819943609186*^9, 3.668199459234188*^9}, {3.6845527523318443`*^9, 
  3.684552754706518*^9}, {3.684552905535131*^9, 3.68455291854071*^9}, {
  3.73038671541514*^9, 3.730386716430956*^9}},
 CellID->907130284,ExpressionUUID->"9c28928b-015b-465b-bdae-8a15dead563f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", "1.541"}], "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.659716380080298*^9}, {3.6597254380255327`*^9, 3.659725442024796*^9}, {
   3.6681987154445143`*^9, 3.668198718178585*^9}, {3.684552759402419*^9, 
   3.684552766242049*^9}, {3.730386574139567*^9, 3.730386576337618*^9}, {
   3.730386607771038*^9, 3.730386608808797*^9}},
 CellLabel->"In[2]:=",
 CellID->418600879,ExpressionUUID->"d7b7dd63-46bd-4e0f-bbce-eb8f6f6e6c08"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(002)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"83.540\"\>",
       83.53979475182977,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.169\"\>",
       2.169322765292084,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.856\"\>",
       15.856379808225878`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.813\"\>",
       5.813478547136861,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"32.103\"\>",
       32.10264665003552,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"68.411\"\>",
       68.41087003464554,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.535\"\>",
       2.5350062420011312`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.731\"\>",
       22.730759707252513`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.610\"\>",
       8.610321223049432,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.985\"\>",
       15.984835730998757`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"58.366\"\>",
       58.365740341102814`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.843\"\>",
       2.8433739505954323`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.245\"\>",
       28.245010851739387`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.822\"\>",
       12.821567914342989`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.177\"\>",
       9.176669807196205,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"51.037\"\>",
       51.0369760958898,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.112\"\>",
       3.1116887584675537`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.124\"\>",
       33.12407421651095,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.098\"\>",
       20.098056965892802`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.333\"\>",
       5.3329308883025455`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(024)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"45.358\"\>",
       45.35754317870566,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.351\"\>",
       3.35059611068816,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"37.659\"\>",
       37.65851786676013,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"35.936\"\>",
       35.93570909369471,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.822\"\>",
       2.822123256874553,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.761\"\>",
       40.76115030990676,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.568\"\>",
       3.5679387371994893`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"42.010\"\>",
       42.01048680010076,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"97.305\"\>",
       97.30543994079224,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.014\"\>",
       1.0137120580079981`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.633\"\>",
       33.63340291393939,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.960\"\>",
       3.9598971311115094`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"50.606\"\>",
       50.60622384923524,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"63.173\"\>",
       63.17275138351205,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.583\"\>",
       1.583151615058734,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(244)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.772\"\>",
       30.771684752013897`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4.142\"\>",
       4.14192952803056,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"55.053\"\>",
       55.052858471255384`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.058\"\>",
       39.05751527008438,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.675\"\>",
       2.6747600525876893`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.647\"\>",
       18.647156777107465`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-173.100\"\>",
       -173.09516943584737`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.687\"\>",
       13.687222762878237`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"24.950\"\>",
       24.94981005522562,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.552\"\>",
       8.551513687888091,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.136\"\>",
       11.135896608887615`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-169.330\"\>",
       -169.32507784599426`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.942\"\>",
       26.942471048983116`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"62.945\"\>",
       62.94498889104276,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.929\"\>",
       1.9292962941589606`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.267\"\>",
       10.266846692562595`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-169.350\"\>",
       -169.34675145744927`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.547\"\>",
       36.54716677881451,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"138.380\"\>",
       138.3809007658252,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.741\"\>",
       0.7409558441518256,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.163\"\>",
       10.163305039064412`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-170.110\"\>",
       -170.106314215673,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"45.224\"\>",
       45.22388686675989,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5,201.600\"\>",
       5201.592914589778,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.019\"\>",
       0.01886078062839006,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.163\"\>",
       10.163305039064412`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-170.110\"\>",
       -170.106314215673,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"45.224\"\>",
       45.22388686675989,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5,201.600\"\>",
       5201.592914589778,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.019\"\>",
       0.01886078062839006,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(135)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.880\"\>",
       9.879775659551541,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-170.640\"\>",
       -170.64126805354158`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"53.922\"\>",
       53.92201548021225,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"136.470\"\>",
       136.46739275401094`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.755\"\>",
       0.7552055825309795,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 16}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.659725432686962*^9, 3.659725442736055*^9}, {
   3.6597262207950563`*^9, 3.659726229897443*^9}, 3.659726274239489*^9, {
   3.659726319193162*^9, 3.659726351799738*^9}, 3.659726485272711*^9, 
   3.668198719152252*^9, {3.684552766782799*^9, 3.684552780300325*^9}, 
   3.684552830942903*^9, 3.68578133875721*^9, 3.714718865498865*^9, 
   3.714718896992845*^9, {3.730386597812771*^9, 3.730386650679986*^9}, 
   3.730398837331357*^9},
 CellLabel->"Out[2]=",
 CellID->834834807,ExpressionUUID->"2e423d3e-d535-4241-bea0-b6392902a78b"]
}, Open  ]],

Cell[TextData[{
 "Applying the ",
 Cell[BoxData["\<\"Sort\"\>"], "InlineFormula",ExpressionUUID->
  "7ca7290b-e587-4779-9312-1664d0dc95f0"],
 " and ",
 Cell[BoxData["\<\"Keep\"\>"], "InlineFormula",ExpressionUUID->
  "ba72d249-4328-41d4-a4c5-65b6d7e6b548"],
 " options will give a better overview. By default, the function sorts the \
reflections from largest to smallest structure factor. This is realised by \
setting ",
 Cell[BoxData[
  RowBox[{"\<\"Sort\"\>", "\[Rule]", 
   RowBox[{"-", "2"}]}]], "InlineFormula",ExpressionUUID->
  "3f30833a-9921-4a52-8d72-a1bfcd8eb913"],
 ", because we want to sort by the second column (structure factor) and in a \
decreasing order."
}], "ExampleText",
 CellChangeTimes->{{3.684552856248406*^9, 3.684552897889093*^9}, {
  3.684552936484425*^9, 3.6845529807389593`*^9}, {3.6857814216947317`*^9, 
  3.685781434599326*^9}, {3.6857814988207483`*^9, 3.685781615466261*^9}, {
  3.68578169246917*^9, 3.685781695387641*^9}, {3.730386674844501*^9, 
  3.730386691823326*^9}},
 CellID->61308762,ExpressionUUID->"68568bc0-a482-4e3f-bc93-0c32b9bff42e"],

Cell["\<\
Let us sort the entries from smaller to larger Bragg angles and keep the top \
twelve reflections:\
\>", "ExampleText",
 CellChangeTimes->{{3.684552856248406*^9, 3.684552897889093*^9}, {
  3.684552936484425*^9, 3.6845529807389593`*^9}, {3.6857814216947317`*^9, 
  3.685781434599326*^9}, {3.6857814988207483`*^9, 3.685781586353631*^9}, {
  3.685781620793269*^9, 3.685781662150331*^9}, {3.685781728678665*^9, 
  3.68578173186069*^9}},
 CellID->1474479370,ExpressionUUID->"35544265-4a15-4ad3-ba76-c1c31c70a314"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<SodiumChloride\>\"", ",", "0.987", ",", 
   RowBox[{"\"\<Sort\>\"", "\[Rule]", "4"}], ",", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "12"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6845529226137047`*^9, 3.6845529293085823`*^9}, {
  3.68578166601681*^9, 3.685781667133491*^9}},
 CellLabel->"In[3]:=",
 CellID->1397010237,ExpressionUUID->"f2ca267d-cc4f-401c-a8dc-9cfb605ccf57"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.310\"\>",
       18.309922025010902`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-176.920\"\>",
       -176.92225361867773`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.717\"\>",
       8.71701971036698,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.925\"\>",
       36.925386293657944`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.680\"\>",
       5.6796205892061975`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(002)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"82.743\"\>",
       82.74267355386665,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.936\"\>",
       0.93624771251329,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.079\"\>",
       10.078658107787666`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.304\"\>",
       8.30441164128465,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.957\"\>",
       21.957073473658863`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"67.641\"\>",
       67.64126575952672,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.096\"\>",
       1.0959515004655789`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.329\"\>",
       14.328877555150278`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.867\"\>",
       10.8674967037405,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.056\"\>",
       12.056180496900703`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.768\"\>",
       10.768340447279286`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-175.180\"\>",
       -175.1824329066,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.870\"\>",
       16.870209661389676`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"72.035\"\>",
       72.03518806778591,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.570\"\>",
       1.57044349985249,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.624\"\>",
       57.62393567929909,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.231\"\>",
       1.2310768247632042`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.644\"\>",
       17.644426396096215`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.714\"\>",
       13.713940373269452`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.931\"\>",
       7.931101926397236,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"50.323\"\>",
       50.32278639571758,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.349\"\>",
       1.3489959888878769`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.487\"\>",
       20.487315114722666`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.978\"\>",
       16.977617167314623`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.644\"\>",
       5.644155063174286,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.926\"\>",
       9.926483874871236,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-175.190\"\>",
       -175.19255654471738`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.421\"\>",
       22.420655570664522`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"91.645\"\>",
       91.6449226831777,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.972\"\>",
       0.9723218439610931,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(024)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.671\"\>",
       44.670513086931734`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.454\"\>",
       1.4542662625745875`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.036\"\>",
       23.036154062495324`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.814\"\>",
       20.81442563410439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4.192\"\>",
       4.19150647743267,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.101\"\>",
       40.1006471131713,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.550\"\>",
       1.5502628069433246`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.383\"\>",
       25.38259510453322,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.432\"\>",
       25.43176239158646,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.190\"\>",
       3.189815408845815,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.857\"\>",
       9.857223956833886,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-175.550\"\>",
       -175.5475499761562,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"27.043\"\>",
       27.043274831913486`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"111.560\"\>",
       111.56281139092492`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.695\"\>",
       0.6954153940077674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.857\"\>",
       9.857223956833886,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-175.550\"\>",
       -175.5475499761562,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"27.043\"\>",
       27.043274831913486`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"111.560\"\>",
       111.56281139092492`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.695\"\>",
       0.6954153940077674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.024\"\>",
       33.02364574826177,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.724\"\>",
       1.7239414193728342`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.668\"\>",
       29.668085128807018`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.300\"\>",
       38.29950625245661,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.907\"\>",
       1.9072937550376186`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 14}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.684552931484146*^9, 3.685781670710462*^9, 
  3.714718902029409*^9, 3.730398845526623*^9},
 CellLabel->"Out[3]=",
 CellID->783482188,ExpressionUUID->"da47f407-deb4-4be9-a911-d28716efa22f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "94856105-4e99-41c1-919f-d4828c85551d"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1923056819,ExpressionUUID->"a5cd75d9-c7b9-466b-b52f-ae0a912925c8"],

Cell[TextData[{
 "Further restrictions on the reflections may be realised with use of an \
extra ",
 Cell[BoxData[
  ButtonBox["Condition",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Condition"]], "InlineFormula",ExpressionUUID->
  "dfdc652c-74c8-44df-8c79-65223a40b709"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.685782414492694*^9, 3.685782471354068*^9}},
 CellID->1187069583,ExpressionUUID->"6e10f677-71f1-4c5d-a420-f88215826ef7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silver\>\"", ",", "0.709317", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{"h", "\[Equal]", "k", "\[Equal]", "l"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.685782479608251*^9, 3.685782481048245*^9}, 
   3.685782985024946*^9, {3.730386756510676*^9, 3.730386772093742*^9}, {
   3.73039892111069*^9, 3.730398921765044*^9}, 3.730399250966782*^9, {
   3.730399286725931*^9, 3.730399288261648*^9}},
 CellLabel->"In[1]:=",
 CellID->596040468,ExpressionUUID->"31bde58f-86bc-49f4-a95a-4e9fb61c93b0"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"138.000\"\>",
       138.00316139299625`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.718\"\>",
       1.717641564682259,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.564\"\>",
       8.564225359218332,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.663\"\>",
       2.6626446679385842`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.584\"\>",
       57.58375907653864,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"81.452\"\>",
       81.45190185735069,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.419\"\>",
       2.4187221159785866`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.328\"\>",
       17.32766845918344,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.241\"\>",
       5.24102625170198,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.152\"\>",
       15.151928608973106`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"46.226\"\>",
       46.2259159484515,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.131\"\>",
       3.1310619812550335`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.536\"\>",
       26.535604180501153`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.644\"\>",
       12.643530145127007`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4.468\"\>",
       4.467837010829629,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(444)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"24.851\"\>",
       24.850910855560315`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.782\"\>",
       3.782144112800102,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.561\"\>",
       36.560537860241496`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"48.667\"\>",
       48.6670732802876,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.970\"\>",
       0.9696375498029698,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(555)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.809\"\>",
       11.808693126533779`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4.569\"\>",
       4.569077768678063,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"48.124\"\>",
       48.12387340425866,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"273.250\"\>",
       273.2486850529126,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.166\"\>",
       0.1662453635427951,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 7}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.685782991324626*^9, 3.7147189291533833`*^9, {3.730386757801462*^9, 
   3.7303867740828657`*^9}, 3.730398866157682*^9, {3.730398917163206*^9, 
   3.730398922623063*^9}, 3.730399248757092*^9, {3.730399290302253*^9, 
   3.730399293342183*^9}},
 CellLabel->"Out[1]=",
 CellID->212888011,ExpressionUUID->"26078862-1889-4b18-9f34-b6f5cc61d18c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "1bbf50a6-5573-4cf0-afb1-4ad32e911cf5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"79ac2c6f-76cd-4f8a-ad39-d2c8e463f069"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "27478dc1-3810-47ea-ad8e-e9c2bc1407f3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"27fd61d6-2947-4d52-b8de-5401cb018f7f"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Sort\"", "ExampleSubsection",ExpressionUUID->
   "7e9d2a5a-0a40-4d51-924b-c96594c3c279"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6597214591771097`*^9, 3.659721460807967*^9}},
 CellID->1757724783,ExpressionUUID->"b3fa5d87-89ea-44ad-94f1-7ff9bf291d58"],

Cell["\<\
This option lets you sort the table by one of the columns. It needs to take \
an integer value that corresponds to one of the columns of the table.\
\>", "ExampleText",
 CellChangeTimes->{{3.659727323541683*^9, 3.6597274015383883`*^9}},
 CellID->1664557484,ExpressionUUID->"cdadb404-bd0d-4a2c-ae62-83d5216980f0"],

Cell["\<\
Sort by increasing Bragg angle (fourth column from the left):\
\>", "ExampleText",
 CellChangeTimes->{{3.659727434691059*^9, 3.65972745512917*^9}, {
  3.660895882129841*^9, 3.6608958831172447`*^9}},
 CellID->1473008578,ExpressionUUID->"02591d9e-9f5d-42dd-aab0-52c21949ce97"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "1.541", ",", 
   RowBox[{"\"\<Sort\>\"", "\[Rule]", "4"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.65971636968896*^9}, {3.65971707049662*^9, 3.65971709501581*^9}, {
   3.659727423763226*^9, 3.6597274244739*^9}, {3.668198736366721*^9, 
   3.668198772018456*^9}, {3.6845530109386253`*^9, 3.684553015026232*^9}, {
   3.685783232273766*^9, 3.6857832330864553`*^9}, 3.7303993082696753`*^9, {
   3.7303993552268267`*^9, 3.730399356746511*^9}},
 CellLabel->"In[1]:=",
 CellID->317320958,ExpressionUUID->"48d74949-2841-452a-875a-23a257e34673"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"60.366\"\>",
       60.36593111012438,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.250\"\>",
       -178.2464323538394,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.225\"\>",
       14.225141861196064`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.950\"\>",
       6.949945265772178,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.630\"\>",
       29.630109256640097`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"45.685\"\>",
       45.68481847104603,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.750\"\>",
       -177.75399944031628`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.070\"\>",
       28.069511748199865`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.491\"\>",
       14.491356040153205`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.152\"\>",
       8.15249602911637,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.437\"\>",
       29.436951920935872`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"58.440\"\>",
       58.44015044169046,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.560\"\>",
       -177.56488262474195`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.576\"\>",
       34.57576385715674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.735\"\>",
       17.735346813729546`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.919\"\>",
       5.91905245802125,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.142\"\>",
       39.14173266887057,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.541\"\>",
       2.540953742931472,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.200\"\>",
       38.20040072999486,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.080\"\>",
       40.08028850874672,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.518\"\>",
       2.518266067326573,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"50.783\"\>",
       50.78343245873179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.716\"\>",
       2.7162204349076013`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.030\"\>",
       44.03018259509353,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"214.600\"\>",
       214.60496090520053`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.457\"\>",
       0.457395522197153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.153\"\>",
       34.15308768965721,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.823\"\>",
       2.8226957102956107`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.493\"\>",
       47.49329647090666,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"124.250\"\>",
       124.25484779043467`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.793\"\>",
       0.7925311027435119,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.153\"\>",
       34.15308768965721,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.823\"\>",
       2.8226957102956107`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.493\"\>",
       47.49329647090666,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"124.250\"\>",
       124.25484779043467`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.793\"\>",
       0.7925311027435119,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.515\"\>",
       44.51503767869419,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.004\"\>",
       3.003588775674619,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"53.375\"\>",
       53.37524934601061,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.752\"\>",
       28.75203132686249,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.563\"\>",
       3.5632329667459843`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(135)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.005\"\>",
       30.00524392595523,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.114\"\>",
       3.1142893385405817`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.070\"\>",
       57.07019290718499,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.060\"\>",
       30.05962503457221,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.576\"\>",
       3.576385900021137,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 13}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.6597274262153883`*^9, 3.659728047160585*^9, 3.668198779033905*^9, {
   3.684553039680612*^9, 3.684553046784754*^9}, {3.685783224660286*^9, 
   3.685783261099985*^9}, 3.714718945944265*^9, 3.730399311386031*^9, 
   3.730399357840859*^9},
 CellLabel->"Out[1]=",
 CellID->104622604,ExpressionUUID->"49eb2581-3d23-49ea-9096-065764b605c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "d1911824-27c1-45ea-8303-fcf14643f447"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->510143453,ExpressionUUID->"4da2bcb3-4b3b-4a29-987a-efc00180d90f"],

Cell["\<\
Sort by decreasing value of the structure factor (first column, a negative \
sign is used):\
\>", "ExampleText",
 CellChangeTimes->{{3.659727434691059*^9, 3.659727533471211*^9}},
 CellID->533810987,ExpressionUUID->"8b6f6e6b-f928-4eef-afde-d8678e997ac7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "1.541", ",", 
   RowBox[{"\"\<Sort\>\"", "\[Rule]", 
    RowBox[{"-", "2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.65971636968896*^9}, {3.65971707049662*^9, 3.65971709501581*^9}, {
   3.659727423763226*^9, 3.6597274244739*^9}, {3.668198736366721*^9, 
   3.668198772018456*^9}, {3.668198803801675*^9, 3.668198803985577*^9}, {
   3.684553050912981*^9, 3.684553079280031*^9}, {3.685783269403048*^9, 
   3.6857832698534193`*^9}, {3.730399333981037*^9, 3.73039934820261*^9}},
 CellLabel->"In[1]:=",
 CellID->115483248,ExpressionUUID->"e0b74f85-4856-4c70-8ed2-61aeeb9ac342"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"60.366\"\>",
       60.36593111012438,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.250\"\>",
       -178.2464323538394,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.225\"\>",
       14.225141861196064`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.950\"\>",
       6.949945265772178,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.630\"\>",
       29.630109256640097`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"58.440\"\>",
       58.44015044169046,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.560\"\>",
       -177.56488262474195`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.576\"\>",
       34.57576385715674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.735\"\>",
       17.735346813729546`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.919\"\>",
       5.91905245802125,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"50.783\"\>",
       50.78343245873179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.716\"\>",
       2.7162204349076013`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.030\"\>",
       44.03018259509353,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"214.600\"\>",
       214.60496090520053`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.457\"\>",
       0.457395522197153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"45.685\"\>",
       45.68481847104603,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.750\"\>",
       -177.75399944031628`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.070\"\>",
       28.069511748199865`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.491\"\>",
       14.491356040153205`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.152\"\>",
       8.15249602911637,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.515\"\>",
       44.51503767869419,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.004\"\>",
       3.003588775674619,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"53.375\"\>",
       53.37524934601061,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"28.752\"\>",
       28.75203132686249,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.563\"\>",
       3.5632329667459843`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.142\"\>",
       39.14173266887057,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.541\"\>",
       2.540953742931472,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.200\"\>",
       38.20040072999486,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.080\"\>",
       40.08028850874672,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.518\"\>",
       2.518266067326573,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.153\"\>",
       34.15308768965721,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.823\"\>",
       2.8226957102956107`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.493\"\>",
       47.49329647090666,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"124.250\"\>",
       124.25484779043467`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.793\"\>",
       0.7925311027435119,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.153\"\>",
       34.15308768965721,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.823\"\>",
       2.8226957102956107`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.493\"\>",
       47.49329647090666,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"124.250\"\>",
       124.25484779043467`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.793\"\>",
       0.7925311027435119,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(135)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.005\"\>",
       30.00524392595523,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.114\"\>",
       3.1142893385405817`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.070\"\>",
       57.07019290718499,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.060\"\>",
       30.05962503457221,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.576\"\>",
       3.576385900021137,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.437\"\>",
       29.436951920935872`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 13}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.659727498236717*^9, 3.6597275063775682`*^9}, 
   3.6597280599129066`*^9, 3.668198804815977*^9, {3.684553059063479*^9, 
   3.6845530932492933`*^9}, 3.685783275564082*^9, 3.7147189545926847`*^9, {
   3.730399337045072*^9, 3.730399363336853*^9}},
 CellLabel->"Out[1]=",
 CellID->522624528,ExpressionUUID->"3a03e727-9c8c-47a9-9ae4-4a04ffd52d32"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"ReflectionListKeep\"", "ExampleSubsection",ExpressionUUID->
   "e398d6b9-4f6c-4906-82ea-e415f3a9e0ad"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6597214634000072`*^9, 3.6597214645439253`*^9}, {
  3.68578231692421*^9, 3.68578231953623*^9}},
 CellID->1661059421,ExpressionUUID->"64bf8ae6-dc58-433c-80dc-581ebafd2ae0"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"ReflectionListKeep\"\>"], "InlineFormula",ExpressionUUID->
  "e0afc2e3-4208-4dc3-8df7-2220082c793d"],
 " option limits the number of reflections going into the further \
calculations. Read more about the difference between ",
 Cell[BoxData["\<\"Keep\"\>"], "InlineFormula",ExpressionUUID->
  "af2acbd1-1085-4edf-a2eb-8468adfd2ac4"],
 " and ",
 Cell[BoxData["\<\"ReflectionListKeep\"\>"], "InlineFormula",ExpressionUUID->
  "389f0a75-c8a1-4331-8e88-4f60f108e89b"],
 " in the ",
 StyleBox["Details",
  FontWeight->"Bold"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.659727595655321*^9, 3.659727649180704*^9}, 
   3.68578210366333*^9, {3.685782135181594*^9, 3.685782165235444*^9}, {
   3.6857822446074677`*^9, 3.6857822682895803`*^9}, {3.6857823392300053`*^9, 
   3.685782348655534*^9}, {3.685782862643001*^9, 3.685782930923354*^9}, {
   3.730399392355091*^9, 3.730399393745386*^9}},
 CellID->138277747,ExpressionUUID->"4ac6b2c8-78a4-4e25-98fc-6972031d0de9"],

Cell[TextData[{
 "Observe the difference between setting the value of this option to ",
 Cell[BoxData[
 "10"], "InlineFormula",ExpressionUUID->
  "b31f1fb6-6af2-45f8-a9e7-0214656b7f0b"],
 " and ",
 Cell[BoxData[
 "25"], "InlineFormula",ExpressionUUID->
  "48129180-6fd8-4c86-b3ab-62872d971155"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.659727654053997*^9, 3.6597276855078297`*^9}, {
  3.685782943890868*^9, 3.68578295013645*^9}, {3.68586471411108*^9, 
  3.685864718913024*^9}, {3.685864785902281*^9, 3.6858647861073093`*^9}, {
  3.685864966847145*^9, 3.685864990692984*^9}, {3.6858650588951273`*^9, 
  3.6858650588952*^9}},
 CellID->456787775,ExpressionUUID->"1580431e-811f-422d-b00d-a0c6a16db2c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "@", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"StructureFactorTable", "[", 
     RowBox[{"\"\<ManganeseSilicon\>\"", ",", "1.541", ",", 
      RowBox[{"\"\<ReflectionListKeep\>\"", "\[Rule]", "rlk"}], ",", 
      RowBox[{"\"\<Keep\>\"", "\[Rule]", "5"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"rlk", ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "25"}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.65971636968896*^9}, {3.65971707049662*^9, 3.65971709501581*^9}, {
   3.659727423763226*^9, 3.6597274244739*^9}, {3.668198736366721*^9, 
   3.668198772018456*^9}, {3.668198818849079*^9, 3.6681988223212137`*^9}, {
   3.684553100447435*^9, 3.684553104958988*^9}, {3.6857821131173773`*^9, 
   3.685782118377825*^9}, {3.685864727526998*^9, 3.685864733814307*^9}, {
   3.685864851390354*^9, 3.685864926936857*^9}, {3.685865014343865*^9, 
   3.6858650539270267`*^9}, {3.685865083953539*^9, 3.6858650923734093`*^9}, {
   3.685865128644966*^9, 3.685865193761156*^9}, {3.730399373708086*^9, 
   3.7303993740183573`*^9}},
 CellLabel->"In[1]:=",
 CellID->2125580047,ExpressionUUID->"ba8e67f1-f726-45cd-b293-1394d561a3c8"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg \
angle\"\>", "\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
        {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \\(hkl\\)]\\)|\
\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) \
[\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
        {
         TagBox["\<\"(102)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"25.106\"\>",
           25.10590199772515,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-173.120\"\>",
           -173.12047001200105`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"22.219\"\>",
           22.21899806120518,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"12.150\"\>",
           12.149954716080448`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"11.533\"\>",
           11.532542837927886`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(004)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"18.260\"\>",
           18.25965023778085,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-169.520\"\>",
           -169.52410242126237`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"42.567\"\>",
           42.5669525878862,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"140.610\"\>",
           140.61308036192955`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"0.700\"\>",
           0.7002050018691667,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(112)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"14.505\"\>",
           14.505034404078115`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-172.770\"\>",
           -172.77259830732962`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"24.471\"\>",
           24.47147245610242,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"22.502\"\>",
           22.50184221153564,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"5.782\"\>",
           5.781774409047582,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(111)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"10.657\"\>",
           10.657466133698122`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-14.684\"\>",
           -14.683637347077077`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"17.032\"\>",
           17.032373856494296`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"26.940\"\>",
           26.94013584362846,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"6.501\"\>",
           6.5012161406504765`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(012)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"8.135\"\>",
           8.135224627556145,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"104.720\"\>",
           104.7203310107625,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"22.219\"\>",
           22.21899806120518,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"37.496\"\>",
           37.4956545570332,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"3.737\"\>",
           3.7369629867095875`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
            GrayLevel[0.85]}}},
       GridBoxDividers->{
        "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxItemStyle->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
         "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
            FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 
            6}} -> {FontFamily -> "Times New Roman", FontSize -> 13, 
             GrayLevel[0.5]}, {{3, 7}, {1, 6}} -> (FontFamily -> "Courier")}},
       
       GridBoxSpacings->{
        "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
      "Grid"]},
    {
     TagBox[GridBox[{
        {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg \
angle\"\>", "\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
        {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \\(hkl\\)]\\)|\
\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) \
[\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
        {
         TagBox["\<\"(102)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"25.106\"\>",
           25.10590199772515,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-173.120\"\>",
           -173.12047001200105`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"22.219\"\>",
           22.21899806120518,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"12.150\"\>",
           12.149954716080448`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"11.533\"\>",
           11.532542837927886`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(004)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"18.260\"\>",
           18.25965023778085,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-169.520\"\>",
           -169.52410242126237`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"42.567\"\>",
           42.5669525878862,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"140.610\"\>",
           140.61308036192955`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"0.700\"\>",
           0.7002050018691667,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(123)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"15.331\"\>",
           15.331347354104848`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"7.405\"\>",
           7.405188429023742,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"39.254\"\>",
           39.254210760806444`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"71.757\"\>",
           71.75654748528196,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"1.395\"\>",
           1.3951327637076627`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(112)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"14.505\"\>",
           14.505034404078115`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-172.770\"\>",
           -172.77259830732962`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"24.471\"\>",
           24.47147245610242,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"22.502\"\>",
           22.50184221153564,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"5.782\"\>",
           5.781774409047582,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
        {
         TagBox["\<\"(111)\"\>",
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"10.657\"\>",
           10.657466133698122`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"-14.684\"\>",
           -14.683637347077077`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"17.032\"\>",
           17.032373856494296`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"26.940\"\>",
           26.94013584362846,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
         TagBox[
          InterpretationBox["\<\"6.501\"\>",
           6.5012161406504765`,
           AutoDelete->True],
          NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
            GrayLevel[0.85]}}},
       GridBoxDividers->{
        "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxItemStyle->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
         "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
            FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 
            6}} -> {FontFamily -> "Times New Roman", FontSize -> 13, 
             GrayLevel[0.5]}, {{3, 7}, {1, 6}} -> (FontFamily -> "Courier")}},
       
       GridBoxSpacings->{
        "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
      "Grid"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.685864930969385*^9, 3.685865018896592*^9, {3.685865066794832*^9, 
   3.685865197561008*^9}, 3.6858655152830467`*^9, 3.714718967358982*^9, {
   3.730399371259323*^9, 3.730399378740478*^9}},
 CellLabel->"Out[1]=",
 CellID->1375858424,ExpressionUUID->"f22ca274-84d2-421d-b5e0-df3eb3685e4e"]
}, Open  ]],

Cell[TextData[{
 "In the case where the 25 first reflections were used in comparison to find \
the five reflections with the largest structure factor (as the table is \
ordered in by default), reflection ",
 Cell[BoxData[
  FormBox["123", TraditionalForm]], "InlineMath",ExpressionUUID->
  "667e3dd3-dbcb-41ec-8604-7a6381918847"],
 " was included. When only using the first 10 generated reflections, however, \
it is not included. This happens because ",
 Cell[BoxData[
  ButtonBox["ReflectionList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReflectionList"]], "InlineFormula",
  ExpressionUUID->"2f84513a-4533-42dd-a235-6af68abcdff9"],
 ", which is used by ",
 Cell[BoxData[
  ButtonBox["StructureFactorTable",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactorTable"]], "InlineFormula",
  ExpressionUUID->"45ce0adc-9415-46f5-91c7-6b2d120d03ce"],
 ", sorts the generated reflections from least to highest digit sum."
}], "ExampleText",
 CellChangeTimes->{{3.685864775973909*^9, 3.6858647787303057`*^9}, {
  3.685864994211419*^9, 3.6858649965192833`*^9}, {3.6858652308026133`*^9, 
  3.6858654613567333`*^9}, {3.6858655020908813`*^9, 3.685865637339903*^9}},
 CellID->445725729,ExpressionUUID->"b91064f3-648e-4688-8029-679e6600661f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Keep\"", "ExampleSubsection",ExpressionUUID->
   "463298dc-a32c-4955-a478-b584fa580f04"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6597214634000072`*^9, 3.6597214645439253`*^9}},
 CellID->1295379749,ExpressionUUID->"ef20672c-a368-4625-907f-a1b8c82a5ab7"],

Cell[TextData[{
 "The ",
 Cell[BoxData["\<\"Keep\"\>"], "InlineFormula",ExpressionUUID->
  "35935faf-5798-4e26-b09d-f6782da7c153"],
 " option truncates the table and keeps a desired amount of reflections in \
the table. Read more about the difference between ",
 Cell[BoxData["\<\"Keep\"\>"], "InlineFormula",ExpressionUUID->
  "39cc5996-67ea-4ec2-9367-ec1507a891e8"],
 " and ",
 Cell[BoxData["\<\"ReflectionListKeep\"\>"], "InlineFormula",ExpressionUUID->
  "8bd9fac6-751e-40d6-ab64-993b3e161be2"],
 " in the ",
 StyleBox["Details",
  FontWeight->"Bold"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.659727595655321*^9, 3.659727649180704*^9}, 
   3.68578210366333*^9, {3.685782135181594*^9, 3.685782165235444*^9}, {
   3.6857822446074677`*^9, 3.6857822682895803`*^9}, {3.7303994862087603`*^9, 
   3.7303994897990503`*^9}},
 CellID->952059570,ExpressionUUID->"3689013c-2cba-476f-a0e5-0efc2ffdf115"],

Cell["\<\
Let's say that we're only interested in the top nine strongest reflections:\
\>", "ExampleText",
 CellChangeTimes->{{3.659727654053997*^9, 3.6597276855078297`*^9}},
 CellID->584088923,ExpressionUUID->"921bff79-03e0-419c-a247-1f3d3bc39d89"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "9"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.65971636968896*^9}, {3.65971707049662*^9, 3.65971709501581*^9}, {
   3.659727423763226*^9, 3.6597274244739*^9}, {3.668198736366721*^9, 
   3.668198772018456*^9}, {3.668198818849079*^9, 3.6681988223212137`*^9}, {
   3.684553100447435*^9, 3.684553104958988*^9}, {3.6857821131173773`*^9, 
   3.685782118377825*^9}, {3.685783426162793*^9, 3.685783427057467*^9}, {
   3.730399466200252*^9, 3.730399475495625*^9}},
 CellLabel->"In[1]:=",
 CellID->9329563,ExpressionUUID->"a458a319-0c72-442b-a530-564e4dee654c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"68.226\"\>",
       68.22574124200922,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.540\"\>",
       -179.54166620356438`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.644\"\>",
       10.64409509941302,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.606\"\>",
       12.60617410751433,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.866\"\>",
       9.866423774204508,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"59.374\"\>",
       59.37449374751476,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.620\"\>",
       -179.62024908074778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.495\"\>",
       6.494621582689584,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.851\"\>",
       13.85146765701755,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.504\"\>",
       14.504073308072286`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.093\"\>",
       57.09341563428689,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.470\"\>",
       -179.4691527064153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.142\"\>",
       15.142241175278835`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.255\"\>",
       16.254511330202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.509\"\>",
       5.508875689826977,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.473\"\>",
       49.472520483306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.594\"\>",
       0.5937683753407871,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.658\"\>",
       18.658282721659315`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.368\"\>",
       20.367813069538332`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.657\"\>",
       3.6571856184758182`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.717\"\>",
       44.716560654590026`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.510\"\>",
       -179.51128422917856`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.509\"\>",
       12.50877044740024,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.777\"\>",
       19.776816340698257`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.399\"\>",
       5.399217676267832,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"43.239\"\>",
       43.23889856485038,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.658\"\>",
       0.6584642036912418,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.680\"\>",
       21.67957635859242,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.491\"\>",
       25.49124240794711,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.580\"\>",
       2.58015073697375,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.199\"\>",
       38.19901821093179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.554\"\>",
       0.5544954225741836,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.538\"\>",
       16.538154912829373`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.036\"\>",
       25.036351186487778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.305\"\>",
       3.3048465758747456`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(026)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.004\"\>",
       38.004323286755096`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.726\"\>",
       0.7261055570520715,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"24.395\"\>",
       24.394633121028846`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"32.006\"\>",
       32.006031097194246`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.875\"\>",
       1.8754371539017411`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(444)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.582\"\>",
       33.58151501752009,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.200\"\>",
       -179.20354957719994`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.900\"\>",
       26.900325932672562`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.406\"\>",
       40.40613553619624,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.385\"\>",
       1.3848967089137403`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 11}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.659727697601186*^9, 3.659728065943088*^9, 
  3.668198835293336*^9, 3.684553107438105*^9, 3.68578228465441*^9, 
  3.685783311743071*^9, 3.7147189964087954`*^9, 3.73039947798412*^9},
 CellLabel->"Out[1]=",
 CellID->1264577013,ExpressionUUID->"8a8ddbcb-0e13-4247-bfab-ac0cab03703c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"SplitEquivalent\"", "ExampleSubsection",ExpressionUUID->
   "2104c165-2707-485a-962e-5e6db59ee8cd"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.659721465687848*^9, 3.6597214714077263`*^9}},
 CellID->1262176224,ExpressionUUID->"418b299e-018d-4af5-a638-aba0308851b5"],

Cell[TextData[{
 "By default, only one reflection from a set of symmetry equivalent \
reflections is represented in the table. This can be turned off by setting ",
 Cell[BoxData[
  RowBox[{"\<\"SplitEquivalent\"\>", "\[Rule]", 
   ButtonBox["True",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/True"]}]], "InlineFormula",ExpressionUUID->
  "9098520a-e26b-41fc-851d-fa030da00e20"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.659727718732449*^9, 3.6597278241406183`*^9}},
 CellID->177978547,ExpressionUUID->"64434633-b536-4fb4-b0d2-c438854566e6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "1.541", ",", 
   RowBox[{"\"\<SplitEquivalent\>\"", "\[Rule]", "True"}], ",", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "15"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.659716380080298*^9}, {3.659716716696052*^9, 3.65971673025518*^9}, {
   3.659723768361657*^9, 3.659723793191638*^9}, {3.659724208535163*^9, 
   3.659724209053853*^9}, {3.6597243851640882`*^9, 3.659724420490946*^9}, {
   3.668198844556431*^9, 3.66819886664028*^9}, {3.684553116342683*^9, 
   3.6845531216309967`*^9}, {3.685783320983869*^9, 3.685783343416098*^9}, {
   3.6857834348341103`*^9, 3.68578345995393*^9}, {3.730399505303422*^9, 
   3.730399505687047*^9}},
 CellLabel->"In[1]:=",
 CellID->626042822,ExpressionUUID->"9442c80d-acbf-4264-8fae-d704d68da084"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(202)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(220)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(02\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\))\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.109\"\>",
       2.109180055032582,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(20\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\))\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.109\"\>",
       2.109180055032582,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(0\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\)2)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.109\"\>",
       2.109180055032582,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(2\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\)0)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.109\"\>",
       2.109180055032582,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(0\\!\\(\\*OverscriptBox[\\(2\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\))\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\)02)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.109\"\>",
       2.109180055032582,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\)20)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.109\"\>",
       2.109180055032582,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(\\!\\(\\*OverscriptBox[\\(2\\), \
\\(_\\)]\\)0\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\))\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(\\!\\(\\*OverscriptBox[\\(2\\), \
\\(_\\)]\\)\\!\\(\\*OverscriptBox[\\(2\\), \\(_\\)]\\)0)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"69.608\"\>",
       69.60829576750936,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-177.890\"\>",
       -177.8908199449674,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.658\"\>",
       23.6582169605595,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.817\"\>",
       7.816606718175521,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.073\"\>",
       17.073112958202433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"60.366\"\>",
       60.36593111012438,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.250\"\>",
       -178.2464323538394,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.225\"\>",
       14.225141861196064`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.950\"\>",
       6.949945265772178,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.630\"\>",
       29.630109256640093`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(11\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\))\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"60.366\"\>",
       60.36593111012438,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.754\"\>",
       1.7535676461606056`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.225\"\>",
       14.225141861196064`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.950\"\>",
       6.949945265772178,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.630\"\>",
       29.630109256640093`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(1\\!\\(\\*OverscriptBox[\\(1\\), \\(_\\)]\\)1)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"60.366\"\>",
       60.36593111012438,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.754\"\>",
       1.7535676461606056`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.225\"\>",
       14.225141861196064`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.950\"\>",
       6.949945265772178,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.630\"\>",
       29.630109256640093`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 17}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.6597278358978863`*^9, 3.659728073624898*^9, 3.668198869078353*^9, 
   3.684553123687258*^9, {3.685783385777278*^9, 3.6857834003728933`*^9}, {
   3.685783437904044*^9, 3.685783466333583*^9}, 3.714719007781806*^9, 
   3.7147190468509083`*^9, 3.73039950739356*^9},
 CellLabel->"Out[1]=",
 CellID->1179500537,ExpressionUUID->"c75cc750-aa7d-41dd-b272-3c8f3c2aea5e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"CustomReflections\"", "ExampleSubsection",ExpressionUUID->
   "0e0938f1-c089-4ca9-8953-3f91f1715cdd"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6597214732718487`*^9, 3.659721476815506*^9}},
 CellID->552331702,ExpressionUUID->"e476d875-fdbe-4619-89cc-418b9ddf9431"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["StructureFactorTable",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactorTable"]], "InlineFormula",
  ExpressionUUID->"009a669e-8f5d-4154-b5db-af429d777252"],
 " produces a list of possible reflections automatically, but this step can \
be omitted if desired, and a list of custom reflections inputted instead."
}], "ExampleText",
 CellChangeTimes->{{3.659727855113246*^9, 3.659727926150283*^9}, {
  3.659727984125886*^9, 3.659728003788464*^9}, {3.668198969472269*^9, 
  3.6681989829260473`*^9}},
 CellID->483608670,ExpressionUUID->"2ea8170b-9a6d-4e1e-9ea9-d76557b77ba4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{"\"\<CustomReflections\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "4", ",", "2"}], "}"}]}], "}"}]}]}], "]"}]], "Input",\

 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712972881769*^9}, {
   3.659713180212347*^9, 3.6597132465868998`*^9}, 3.659714543085432*^9, 
   3.65971471319983*^9, {3.659715403974668*^9, 3.659715432541933*^9}, {
   3.6597157571118097`*^9, 3.659715771974161*^9}, {3.659716332862423*^9, 
   3.659716338648291*^9}, {3.6681988885595093`*^9, 3.66819889081917*^9}, {
   3.684553133661941*^9, 3.684553137606269*^9}, {3.730399521383027*^9, 
   3.730399527070876*^9}},
 CellLabel->"In[1]:=",
 CellID->10553423,ExpressionUUID->"b31a479f-436a-407c-9199-0cdcfc8a2b66"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"59.374\"\>",
       59.37449374751476,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.620\"\>",
       -179.62024908074778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.495\"\>",
       6.494621582689584,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.851\"\>",
       13.85146765701755,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.504\"\>",
       14.504073308072288`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.717\"\>",
       44.716560654590026`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.510\"\>",
       -179.51128422917856`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.509\"\>",
       12.50877044740024,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.777\"\>",
       19.776816340698257`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.399\"\>",
       5.399217676267833,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(246)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.830\"\>",
       29.82983818725306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.130\"\>",
       -179.13097012474108`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.255\"\>",
       29.254569144316918`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"51.430\"\>",
       51.42988048339562,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.030\"\>",
       1.0296668966335276`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 5}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.6597280143562927`*^9, 3.659728076774194*^9, {3.668198891078862*^9, 
   3.6681988960245113`*^9}, 3.684553138039215*^9, 3.685783471658567*^9, {
   3.685783908564045*^9, 3.6857839171648703`*^9}, 3.685786571173986*^9, 
   3.685865755363212*^9, 3.714719058259577*^9, 3.730399533132061*^9},
 CellLabel->"Out[1]=",
 CellID->1138353631,ExpressionUUID->"cd022816-8b3a-4daf-902b-56911c7f5507"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "b7c02a62-f5df-4d54-b719-6b33ce55690d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"fc082d79-d2c9-4b43-ac37-6767621715ab"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "9c512d0e-ffd0-4168-b059-2f99f6d31513"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"780004cc-efca-4efb-8942-8789f57de4f0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "01f91f7f-dd11-481b-b158-a387c0c657db"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"aebeeec0-a44d-48f4-9c02-c2e2cf6d14cf"],

Cell["In some cases, there may be additional extinct reflections:", \
"ExampleText",
 CellChangeTimes->{{3.659726629853951*^9, 3.659726651988144*^9}},
 CellID->2070466944,ExpressionUUID->"e43e2a95-4083-4de2-8eb3-20ea5116c602"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317"}], "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.659716380080298*^9}, 3.668198908434698*^9, {3.684553159046595*^9, 
   3.684553162756814*^9}, {3.730399539359826*^9, 3.730399542990099*^9}},
 CellLabel->"In[1]:=",
 CellID->810562989,ExpressionUUID->"3b96acb8-a7d0-42ae-badf-d428ab97b9d8"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"68.226\"\>",
       68.22574124200922,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.540\"\>",
       -179.54166620356438`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.644\"\>",
       10.64409509941302,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.606\"\>",
       12.60617410751433,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.866\"\>",
       9.866423774204508,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"59.374\"\>",
       59.37449374751476,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.620\"\>",
       -179.62024908074778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.495\"\>",
       6.494621582689584,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.851\"\>",
       13.85146765701755,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.504\"\>",
       14.504073308072286`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.093\"\>",
       57.09341563428689,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.470\"\>",
       -179.4691527064153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.142\"\>",
       15.142241175278835`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.255\"\>",
       16.254511330202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.509\"\>",
       5.508875689826977,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.473\"\>",
       49.472520483306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.594\"\>",
       0.5937683753407871,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.658\"\>",
       18.658282721659315`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.368\"\>",
       20.367813069538332`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.657\"\>",
       3.6571856184758182`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.717\"\>",
       44.716560654590026`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.510\"\>",
       -179.51128422917856`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.509\"\>",
       12.50877044740024,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.777\"\>",
       19.776816340698257`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.399\"\>",
       5.399217676267832,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"43.239\"\>",
       43.23889856485038,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.658\"\>",
       0.6584642036912418,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.680\"\>",
       21.67957635859242,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.491\"\>",
       25.49124240794711,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.580\"\>",
       2.58015073697375,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.199\"\>",
       38.19901821093179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.554\"\>",
       0.5544954225741836,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.538\"\>",
       16.538154912829373`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.036\"\>",
       25.036351186487778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.305\"\>",
       3.3048465758747456`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(026)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.004\"\>",
       38.004323286755096`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.726\"\>",
       0.7261055570520715,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"24.395\"\>",
       24.394633121028846`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"32.006\"\>",
       32.006031097194246`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.875\"\>",
       1.8754371539017411`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(444)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.582\"\>",
       33.58151501752009,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.200\"\>",
       -179.20354957719994`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.900\"\>",
       26.900325932672562`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.406\"\>",
       40.40613553619624,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.385\"\>",
       1.3848967089137403`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(246)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.830\"\>",
       29.82983818725306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.130\"\>",
       -179.13097012474108`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.255\"\>",
       29.254569144316918`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"51.430\"\>",
       51.42988048339562,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.030\"\>",
       1.0296668966335276`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(135)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.112\"\>",
       29.111893522307003`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.683\"\>",
       0.6834882394307785,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.727\"\>",
       22.727203704299214`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.242\"\>",
       39.24233267746245,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.615\"\>",
       1.6145946133291096`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(008)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.635\"\>",
       26.635172692163685`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.943\"\>",
       0.9433154823250104,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.496\"\>",
       31.495558015945196`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"66.253\"\>",
       66.25277041092971,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.765\"\>",
       0.7650148787362533,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(335)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.639\"\>",
       25.63889627526864,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.250\"\>",
       -179.2478087859737,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.355\"\>",
       25.355115355304644`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.359\"\>",
       49.35929555892872,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.182\"\>",
       1.182052554455561,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(066)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.904\"\>",
       23.903905221788573`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.980\"\>",
       -178.9812425644143,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.650\"\>",
       33.650351286008295`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"86.876\"\>",
       86.87618768555774,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.563\"\>",
       0.5634212240801294,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(228)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.904\"\>",
       23.903905221788573`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.980\"\>",
       -178.9812425644143,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.650\"\>",
       33.650351286008295`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"86.876\"\>",
       86.87618768555774,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.563\"\>",
       0.5634212240801294,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(117)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.700\"\>",
       22.699978381988295`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.823\"\>",
       0.823433477539262,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"27.799\"\>",
       27.798549944373818`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"62.482\"\>",
       62.482418354720394`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.876\"\>",
       0.8759191509335187,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(155)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.700\"\>",
       22.6999783819883,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.180\"\>",
       -179.17656652246075`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"27.799\"\>",
       27.798549944373814`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"62.482\"\>",
       62.482418354720366`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.876\"\>",
       0.875919150933519,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(048)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.559\"\>",
       21.559059767847014`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.910\"\>",
       -178.90519371012826`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"35.739\"\>",
       35.73924025505106,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"117.020\"\>",
       117.0159340779997,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.407\"\>",
       0.4069804199159561,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(137)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.203\"\>",
       20.203451125458347`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.100\"\>",
       -179.10328365089245`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.107\"\>",
       30.106572961473077`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"79.846\"\>",
       79.84602492811467,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.652\"\>",
       0.6516400726651719,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(355)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.203\"\>",
       20.203451125458347`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.100\"\>",
       -179.10328365089245`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.107\"\>",
       30.106572961473077`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"79.846\"\>",
       79.84602492811467,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.652\"\>",
       0.6516400726651719,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(466)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.537\"\>",
       19.537247707305628`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.171\"\>",
       1.1709313321861075`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"37.778\"\>",
       37.77819939086034,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"164.450\"\>",
       164.44921409518133`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.284\"\>",
       0.28355464404910935`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(337)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.074\"\>",
       18.074431284392677`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.030\"\>",
       -179.02849957384277`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"32.313\"\>",
       32.312500283589245`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"103.460\"\>",
       103.46215323217858`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.483\"\>",
       0.48305887953422916`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(448)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.786\"\>",
       17.78619352544327,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.247\"\>",
       1.246636213892861,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.780\"\>",
       39.78037258432375,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"248.660\"\>",
       248.6646757737939,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.185\"\>",
       0.18465249834878358`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(268)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.263\"\>",
       16.26271956767922,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.321\"\>",
       1.321471262391738,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"41.757\"\>",
       41.757039806353404`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"436.240\"\>",
       436.23874916429236`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.104\"\>",
       0.10418011320747941`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(157)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.251\"\>",
       16.251419262340537`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.950\"\>",
       -178.95276627571886`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.440\"\>",
       34.440474112820155`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"136.860\"\>",
       136.85934397987143`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.354\"\>",
       0.3537054681275896,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(555)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.251\"\>",
       16.25141926234054,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.047\"\>",
       1.0472337242811465`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.440\"\>",
       34.440474112820155`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"136.860\"\>",
       136.85934397987137`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.354\"\>",
       0.35370546812758963`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(119)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.684\"\>",
       14.68381637549143,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.880\"\>",
       -178.8766281945252,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.509\"\>",
       36.50894508911529,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"186.860\"\>",
       186.8563960407247,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.253\"\>",
       0.25268227139569605`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(357)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.684\"\>",
       14.683816375491434`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.123\"\>",
       1.1233718054747952`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.509\"\>",
       36.50894508911529,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"186.860\"\>",
       186.85639604072466`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.253\"\>",
       0.25268227139569605`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(139)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.330\"\>",
       13.329932996291944`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.800\"\>",
       -178.80060482234433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.533\"\>",
       38.53268663468534,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"268.580\"\>",
       268.58045328221044`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.173\"\>",
       0.1725075288504502,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(088)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.730\"\>",
       12.730032642922657`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.537\"\>",
       1.537116169241608,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.632\"\>",
       47.631935710283805`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"686.180\"\>",
       686.1789880689794,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.066\"\>",
       0.06608737160083361,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(177)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.155\"\>",
       12.155368842690683`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.275\"\>",
       1.2748237469511385`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.524\"\>",
       40.52404967043614,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"423.690\"\>",
       423.68790176926416`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.108\"\>",
       0.1078939054038403,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(339)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.155\"\>",
       12.155368842690683`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.275\"\>",
       1.2748237469511385`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.524\"\>",
       40.52404967043614,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"423.690\"\>",
       423.68790176926416`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.108\"\>",
       0.1078939054038403,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(557)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.155\"\>",
       12.155368842690683`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.275\"\>",
       1.274823746951138,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.524\"\>",
       40.52404967043614,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"423.690\"\>",
       423.68790176926416`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.108\"\>",
       0.1078939054038403,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(159)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.132\"\>",
       11.131693169679876`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.349\"\>",
       1.3492277684806613`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"42.494\"\>",
       42.49380009184206,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"823.960\"\>",
       823.9640488289053,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.055\"\>",
       0.05501438162769105,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(377)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.132\"\>",
       11.131693169679876`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.349\"\>",
       1.3492277684806613`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"42.494\"\>",
       42.49380009184206,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"823.960\"\>",
       823.9640488289053,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.055\"\>",
       0.05501438162769105,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(359)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.235\"\>",
       10.235368576699997`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.422\"\>",
       1.4222350577125717`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.452\"\>",
       44.45171994858297,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4,091.200\"\>",
       4091.2091240939067`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.011\"\>",
       0.011039473340940855`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(179)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.750\"\>",
       8.74998264166518,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.563\"\>",
       1.5628768016822632`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"48.369\"\>",
       48.36902927349988,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"780.590\"\>",
       780.5857826193085,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.058\"\>",
       0.05825188233447501,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(379)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.131\"\>",
       8.131186837477118,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.370\"\>",
       -178.36992857881657`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"50.347\"\>",
       50.34701823271033,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"531.120\"\>",
       531.1167488336541,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.087\"\>",
       0.08652458800248637,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(199)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.639\"\>",
       6.639490798308953,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.180\"\>",
       -178.18234363824507`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"56.486\"\>",
       56.48552888679824,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"309.270\"\>",
       309.2736085660784,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.159\"\>",
       0.1585836801445108,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(222)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.075\"\>",
       13.074622518496083`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(226)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.669\"\>",
       25.669420876118544`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(244)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.068\"\>",
       23.068063210866864`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(248)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.764\"\>",
       36.76408637991388,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(266)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.702\"\>",
       34.70195494351705,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(446)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"32.582\"\>",
       32.5823372537615,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(288)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"48.615\"\>",
       48.61520143070638,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(468)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.696\"\>",
       44.69609244226019,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(666)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.000\"\>",
       0,
       Editable->False],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"42.739\"\>",
       42.738993786441505`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox["\<\"\[Dash]\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 52}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.659726661555729*^9, 3.659728030387445*^9, 
  3.668198909483458*^9, 3.68455316447587*^9, 3.685786605715597*^9, 
  3.685786647635*^9, 3.714719073319776*^9, 3.730399547835059*^9},
 CellLabel->"Out[1]=",
 CellID->1682378531,ExpressionUUID->"cc7eb47a-c049-467e-9dd9-f0857a722dc1"]
}, Open  ]],

Cell[TextData[{
 "Here, the silicon has space group ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "\[VeryThinSpace]", "d", "\[VeryThinSpace]", 
    OverscriptBox["3", "_"], "\[VeryThinSpace]", "m"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"c8e26359-1db0-4a1f-9266-116052591cbc"],
 " (#227 in the ",
 StyleBox["International Tables for Crystallograph",
  FontSlant->"Italic"],
 "y). For this particular case, we find that the extra reflection condition \
",
 Cell[BoxData[
  FormBox[
   RowBox[{"h", "=", 
    RowBox[{
     RowBox[{"2", " ", "n"}], "+", "1"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ff412e5c-e42e-4411-b64f-f152bf5055c6"],
 " or ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"h", "+", "k", "+", "l"}], "=", 
    RowBox[{"4", " ", "n"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"d27fc197-4da6-4089-9d33-126d907f5a42"],
 " must be fulfilled. This will have to be incorporated as a ",
 Cell[BoxData[
  StyleBox["condition", "TI"]], "InlineFormula",ExpressionUUID->
  "1cf0e0b4-b91f-4eca-a538-27a2497a77fc"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.6597266982841*^9, 3.659726704091001*^9}, {
   3.659726846063697*^9, 3.659726988596349*^9}, {3.6597271333540487`*^9, 
   3.659727278741551*^9}, 3.65972851129862*^9, {3.668198995848563*^9, 
   3.6681990010848207`*^9}, {3.730399557982972*^9, 3.730399611334955*^9}},
 CellID->993671121,ExpressionUUID->"ef1e92f7-e4d2-465c-b8ca-83627cf4cfff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{
     RowBox[{"OddQ", "[", "k", "]"}], "||", 
     RowBox[{"Divisible", "[", 
      RowBox[{
       RowBox[{"h", "+", "k", "+", "l"}], ",", "4"}], "]"}]}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.659716380080298*^9}, {3.659716716696052*^9, 3.65971673025518*^9}, {
   3.6681989344985228`*^9, 3.668198942786232*^9}, {3.684553171374872*^9, 
   3.6845531758127937`*^9}, {3.685786673504627*^9, 3.685786677124342*^9}, {
   3.730399618844676*^9, 3.730399620540247*^9}},
 CellLabel->"In[2]:=",
 CellID->1099474537,ExpressionUUID->"de790b46-6dd4-42f6-b0dd-d71ee2d310aa"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"68.226\"\>",
       68.22574124200922,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.540\"\>",
       -179.54166620356438`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.644\"\>",
       10.64409509941302,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.606\"\>",
       12.60617410751433,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.866\"\>",
       9.866423774204506,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"59.374\"\>",
       59.37449374751476,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.620\"\>",
       -179.62024908074778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.495\"\>",
       6.494621582689584,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.851\"\>",
       13.85146765701755,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.504\"\>",
       14.504073308072288`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.093\"\>",
       57.09341563428689,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.470\"\>",
       -179.4691527064153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.142\"\>",
       15.142241175278835`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.255\"\>",
       16.254511330202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.509\"\>",
       5.508875689826976,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.473\"\>",
       49.472520483306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.594\"\>",
       0.5937683753407871,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.658\"\>",
       18.658282721659315`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.368\"\>",
       20.367813069538332`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.657\"\>",
       3.6571856184758182`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.717\"\>",
       44.716560654590026`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.510\"\>",
       -179.51128422917856`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.509\"\>",
       12.50877044740024,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.777\"\>",
       19.776816340698257`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.399\"\>",
       5.399217676267833,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"43.239\"\>",
       43.23889856485038,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.658\"\>",
       0.6584642036912418,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.680\"\>",
       21.67957635859242,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.491\"\>",
       25.49124240794711,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.580\"\>",
       2.58015073697375,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.199\"\>",
       38.19901821093179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.554\"\>",
       0.5544954225741836,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.538\"\>",
       16.538154912829373`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.036\"\>",
       25.036351186487778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.305\"\>",
       3.3048465758747456`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(026)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.004\"\>",
       38.004323286755096`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.726\"\>",
       0.7261055570520715,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"24.395\"\>",
       24.394633121028846`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"32.006\"\>",
       32.006031097194246`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.875\"\>",
       1.875437153901741,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(444)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.582\"\>",
       33.58151501752009,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.200\"\>",
       -179.20354957719994`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.900\"\>",
       26.900325932672562`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.406\"\>",
       40.40613553619624,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.385\"\>",
       1.3848967089137403`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(246)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.830\"\>",
       29.82983818725306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.130\"\>",
       -179.13097012474108`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.255\"\>",
       29.254569144316918`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"51.430\"\>",
       51.42988048339562,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.030\"\>",
       1.0296668966335276`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(135)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"29.112\"\>",
       29.111893522307003`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.683\"\>",
       0.6834882394307785,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.727\"\>",
       22.727203704299214`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.242\"\>",
       39.24233267746245,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.615\"\>",
       1.6145946133291094`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(008)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"26.635\"\>",
       26.635172692163685`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.943\"\>",
       0.9433154823250104,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.496\"\>",
       31.495558015945196`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"66.253\"\>",
       66.25277041092971,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.765\"\>",
       0.7650148787362533,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(335)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.639\"\>",
       25.63889627526864,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.250\"\>",
       -179.2478087859737,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.355\"\>",
       25.355115355304644`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.359\"\>",
       49.35929555892872,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.182\"\>",
       1.182052554455561,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(066)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.904\"\>",
       23.903905221788573`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.980\"\>",
       -178.9812425644143,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.650\"\>",
       33.650351286008295`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"86.876\"\>",
       86.87618768555774,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.563\"\>",
       0.5634212240801294,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(228)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"23.904\"\>",
       23.903905221788573`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.980\"\>",
       -178.9812425644143,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.650\"\>",
       33.650351286008295`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"86.876\"\>",
       86.87618768555774,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.563\"\>",
       0.5634212240801294,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(117)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.700\"\>",
       22.699978381988295`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.823\"\>",
       0.823433477539262,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"27.799\"\>",
       27.798549944373818`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"62.482\"\>",
       62.482418354720394`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.876\"\>",
       0.8759191509335187,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(155)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"22.700\"\>",
       22.6999783819883,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.180\"\>",
       -179.17656652246075`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"27.799\"\>",
       27.798549944373814`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"62.482\"\>",
       62.482418354720366`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.876\"\>",
       0.875919150933519,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(048)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.559\"\>",
       21.559059767847014`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.910\"\>",
       -178.90519371012826`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"35.739\"\>",
       35.73924025505106,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"117.020\"\>",
       117.0159340779997,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.407\"\>",
       0.40698041991595607`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(137)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.203\"\>",
       20.203451125458347`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.100\"\>",
       -179.10328365089245`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.107\"\>",
       30.106572961473077`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"79.846\"\>",
       79.84602492811467,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.652\"\>",
       0.6516400726651719,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(355)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.203\"\>",
       20.203451125458347`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.100\"\>",
       -179.10328365089245`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"30.107\"\>",
       30.106572961473077`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"79.846\"\>",
       79.84602492811467,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.652\"\>",
       0.6516400726651719,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(466)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.537\"\>",
       19.537247707305628`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.171\"\>",
       1.1709313321861075`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"37.778\"\>",
       37.77819939086034,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"164.450\"\>",
       164.44921409518133`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.284\"\>",
       0.2835546440491093,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(337)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.074\"\>",
       18.074431284392677`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.030\"\>",
       -179.02849957384277`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"32.313\"\>",
       32.312500283589245`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"103.460\"\>",
       103.46215323217858`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.483\"\>",
       0.48305887953422916`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(448)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"17.786\"\>",
       17.78619352544327,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.247\"\>",
       1.246636213892861,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"39.780\"\>",
       39.78037258432375,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"248.660\"\>",
       248.6646757737939,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.185\"\>",
       0.18465249834878356`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(268)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.263\"\>",
       16.26271956767922,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.321\"\>",
       1.321471262391738,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"41.757\"\>",
       41.757039806353404`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"436.240\"\>",
       436.23874916429236`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.104\"\>",
       0.10418011320747941`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(157)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.251\"\>",
       16.251419262340537`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.950\"\>",
       -178.95276627571886`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.440\"\>",
       34.440474112820155`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"136.860\"\>",
       136.85934397987143`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.354\"\>",
       0.3537054681275896,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(555)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.251\"\>",
       16.25141926234054,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.047\"\>",
       1.0472337242811465`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"34.440\"\>",
       34.440474112820155`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"136.860\"\>",
       136.85934397987137`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.354\"\>",
       0.35370546812758963`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(119)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.684\"\>",
       14.68381637549143,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.880\"\>",
       -178.8766281945252,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.509\"\>",
       36.50894508911529,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"186.860\"\>",
       186.8563960407247,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.253\"\>",
       0.25268227139569605`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(357)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.684\"\>",
       14.683816375491434`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.123\"\>",
       1.1233718054747952`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"36.509\"\>",
       36.50894508911529,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"186.860\"\>",
       186.85639604072466`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.253\"\>",
       0.25268227139569605`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(139)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.330\"\>",
       13.329932996291944`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.800\"\>",
       -178.80060482234433`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.533\"\>",
       38.53268663468534,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"268.580\"\>",
       268.58045328221044`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.173\"\>",
       0.1725075288504502,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(088)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.730\"\>",
       12.730032642922657`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.537\"\>",
       1.537116169241608,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"47.632\"\>",
       47.631935710283805`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"686.180\"\>",
       686.1789880689794,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.066\"\>",
       0.06608737160083361,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(177)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.155\"\>",
       12.155368842690683`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.275\"\>",
       1.2748237469511385`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.524\"\>",
       40.52404967043614,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"423.690\"\>",
       423.68790176926416`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.108\"\>",
       0.1078939054038403,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(339)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.155\"\>",
       12.155368842690683`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.275\"\>",
       1.2748237469511385`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.524\"\>",
       40.52404967043614,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"423.690\"\>",
       423.68790176926416`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.108\"\>",
       0.1078939054038403,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(557)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.155\"\>",
       12.155368842690683`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.275\"\>",
       1.274823746951138,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"40.524\"\>",
       40.52404967043614,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"423.690\"\>",
       423.68790176926416`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.108\"\>",
       0.1078939054038403,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(668)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.816\"\>",
       11.815532675038975`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.390\"\>",
       -178.39486515717294`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.603\"\>",
       49.602769617630784`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"423.960\"\>",
       423.9636623729895,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.108\"\>",
       0.10790002659337372`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(159)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.132\"\>",
       11.131693169679876`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.349\"\>",
       1.3492277684806613`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"42.494\"\>",
       42.49380009184206,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"823.960\"\>",
       823.9640488289053,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.055\"\>",
       0.055014381627691046`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(377)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.132\"\>",
       11.131693169679876`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.349\"\>",
       1.3492277684806613`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"42.494\"\>",
       42.49380009184206,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"823.960\"\>",
       823.9640488289053,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.055\"\>",
       0.055014381627691046`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(488)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"11.001\"\>",
       11.001175040816651`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.330\"\>",
       -178.3290847944715,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"51.596\"\>",
       51.59587081137413,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"319.200\"\>",
       319.2005911714228,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.145\"\>",
       0.14530179281721006`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(359)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.235\"\>",
       10.235368576699997`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.422\"\>",
       1.4222350577125717`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.452\"\>",
       44.45171994858297,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"4,091.200\"\>",
       4091.2091240939067`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.011\"\>",
       0.011039473340940855`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(577)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.447\"\>",
       9.446872952741328,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.510\"\>",
       -178.5064654219168,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"46.407\"\>",
       46.4070768771211,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1,727.800\"\>",
       1727.8252891917878`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.026\"\>",
       0.02616644502440657,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(179)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.750\"\>",
       8.74998264166518,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"1.563\"\>",
       1.5628768016822632`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"48.369\"\>",
       48.36902927349988,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"780.590\"\>",
       780.5857826193085,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.058\"\>",
       0.05825188233447501,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(559)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.750\"\>",
       8.749982641665179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.440\"\>",
       -178.43712319831772`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"48.369\"\>",
       48.36902927349988,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"780.590\"\>",
       780.5857826193085,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.058\"\>",
       0.05825188233447501,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(379)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"8.131\"\>",
       8.131186837477118,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.370\"\>",
       -178.36992857881657`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"50.347\"\>",
       50.34701823271033,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"531.120\"\>",
       531.1167488336541,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.087\"\>",
       0.08652458800248639,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(777)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.579\"\>",
       7.579208839982911,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.310\"\>",
       -178.30501692686894`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"52.351\"\>",
       52.35119403202325,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"416.610\"\>",
       416.60640917606025`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.112\"\>",
       0.1120605073693854,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(579)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"7.085\"\>",
       7.084614363840332,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.240\"\>",
       -178.24247426925,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"54.393\"\>",
       54.39293351935053,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"351.260\"\>",
       351.2553722532213,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.136\"\>",
       0.135791305167236,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(199)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.639\"\>",
       6.639490798308953,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-178.180\"\>",
       -178.18234363824507`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"56.486\"\>",
       56.48552888679824,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"309.270\"\>",
       309.2736085660784,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.159\"\>",
       0.1585836801445108,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        GrayLevel[0.85]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Baskerville", FontSize -> 15}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Times New Roman", FontSize -> 13, 
         GrayLevel[0.5]}, {{3, 49}, {1, 6}} -> (FontFamily -> "Courier")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.6597273039076777`*^9, 3.659728034838716*^9, {3.668198936504189*^9, 
   3.668198951754586*^9}, 3.684553177409794*^9, {3.685786664300028*^9, 
   3.685786682025374*^9}, 3.714719087050358*^9, 3.730399625856214*^9},
 CellLabel->"Out[2]=",
 CellID->499130943,ExpressionUUID->"91b01248-3306-43b8-b1e4-ef468c5637a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Styling options", "ExampleSubsection",ExpressionUUID->
   "427f8078-c35d-41ca-ac95-4f0c28d17270"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.679760977458514*^9, 3.679760980601037*^9}},
 CellID->384707429,ExpressionUUID->"6a961275-f1cf-479e-8921-c5333042398e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{
     RowBox[{"OddQ", "[", "h", "]"}], "||", 
     RowBox[{"Divisible", "[", 
      RowBox[{
       RowBox[{"h", "+", "k", "+", "l"}], ",", "4"}], "]"}]}]}], ",", 
   RowBox[{"\"\<Sort\>\"", "\[Rule]", "4"}], ",", " ", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "9"}], ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<TitleStyle\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Comic Sans MS\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "13"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<SubtitleStyle\>\"", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "Red"}], 
     "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<NumberStyle\>\"", "\[Rule]", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Andale Mono\>\""}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "None", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "LightBlue"}], "}"}]}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.65971636968896*^9}, {3.65971707049662*^9, 3.65971709501581*^9}, {
   3.668195871223731*^9, 3.668195879311535*^9}, {3.679745920738942*^9, 
   3.679745967642085*^9}, {3.679749360857093*^9, 3.6797493677122726`*^9}, {
   3.679752361773512*^9, 3.67975237502001*^9}, {3.679752744485815*^9, 
   3.679752767267576*^9}, {3.679756003875307*^9, 3.679756006457773*^9}, {
   3.679760482426714*^9, 3.6797604839067507`*^9}, {3.6797605681608887`*^9, 
   3.679760594679727*^9}, {3.679760658646904*^9, 3.679760660159481*^9}, {
   3.679760694535308*^9, 3.679760761580202*^9}, 3.679764053787305*^9, {
   3.684553186020699*^9, 3.684553190004245*^9}, {3.730399668947904*^9, 
   3.730399671499559*^9}},
 CellLabel->"In[1]:=",
 CellID->1804676257,ExpressionUUID->"359bf7a5-2969-4594-8e87-9c6e03165e91"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"59.374\"\>",
       59.37449374751476,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.620\"\>",
       -179.62024908074778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.495\"\>",
       6.494621582689584,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.851\"\>",
       13.85146765701755,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.504\"\>",
       14.504073308072288`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"68.226\"\>",
       68.22574124200922,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.540\"\>",
       -179.54166620356438`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.644\"\>",
       10.64409509941302,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.606\"\>",
       12.60617410751433,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.866\"\>",
       9.866423774204506,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.717\"\>",
       44.716560654590026`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.510\"\>",
       -179.51128422917856`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.509\"\>",
       12.50877044740024,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.777\"\>",
       19.776816340698257`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.399\"\>",
       5.399217676267833,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.093\"\>",
       57.09341563428689,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.470\"\>",
       -179.4691527064153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.142\"\>",
       15.142241175278835`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.255\"\>",
       16.254511330202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.509\"\>",
       5.508875689826976,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.199\"\>",
       38.19901821093179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.554\"\>",
       0.5544954225741836,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.538\"\>",
       16.538154912829373`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.036\"\>",
       25.036351186487778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.305\"\>",
       3.3048465758747456`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.473\"\>",
       49.472520483306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.594\"\>",
       0.5937683753407871,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.658\"\>",
       18.658282721659315`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.368\"\>",
       20.367813069538332`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.657\"\>",
       3.6571856184758182`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"43.239\"\>",
       43.23889856485038,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.658\"\>",
       0.6584642036912418,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.680\"\>",
       21.67957635859242,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.491\"\>",
       25.49124240794711,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.580\"\>",
       2.58015073697375,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        RGBColor[0.87, 0.94, 1]}}},
   GridBoxDividers->{
    "Columns" -> {None, {True}, None}, "Rows" -> {None, None, True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> {
        FontFamily -> "Comic Sans MS", FontSize -> 13}, {{2, 2}, {1, 6}} -> {
        FontFamily -> "Helvetica", 
         RGBColor[1, 0, 0]}, {{3, 11}, {1, 6}} -> (FontFamily -> 
        "Andale Mono")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.679761000873472*^9, {3.67976405770056*^9, 3.679764063067011*^9}, 
   3.6845531929066687`*^9, 3.685786698229694*^9, 3.714719099125517*^9, 
   3.730399675810301*^9},
 CellLabel->"Out[1]=",
 CellID->2136578261,ExpressionUUID->"8af2b6c5-8b46-4d10-8485-53f61141d6a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9c74f201-e705-4c88-810d-36505e92b405"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->736637605,ExpressionUUID->"70f8e90d-c1d9-4ef4-a263-648080b9c3fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StructureFactorTable", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", "0.709317", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h_", ",", "k_", ",", "l_"}], "}"}], "/;", 
    RowBox[{
     RowBox[{"OddQ", "[", "h", "]"}], "||", 
     RowBox[{"Divisible", "[", 
      RowBox[{
       RowBox[{"h", "+", "k", "+", "l"}], ",", "4"}], "]"}]}]}], ",", 
   RowBox[{"\"\<Sort\>\"", "\[Rule]", "4"}], ",", " ", 
   RowBox[{"\"\<Keep\>\"", "\[Rule]", "9"}], ",", "\[IndentingNewLine]", 
   RowBox[{"\"\<TitleStyle\>\"", "\[Rule]", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Adobe Garamond Pro\>\""}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<SubtitleStyle\>\"", "\[Rule]", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Latin Modern Roman\>\""}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<NumberStyle\>\"", "\[Rule]", 
    RowBox[{"FontFamily", "\[Rule]", "\"\<Inconsolata\>\""}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Background", "\[Rule]", "LightBlue"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Dividers", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.6583952629839*^9, {3.6597118207427883`*^9, 3.659711839269112*^9}, {
   3.659712084640029*^9, 3.6597120851907263`*^9}, {3.659712194797516*^9, 
   3.659712249075274*^9}, {3.659712944266287*^9, 3.659712983729253*^9}, {
   3.659714514310225*^9, 3.659714538773085*^9}, {3.659715592346241*^9, 
   3.6597156092749567`*^9}, {3.6597161468210897`*^9, 3.659716179716775*^9}, {
   3.6597162519880342`*^9, 3.659716282377578*^9}, {3.659716343600903*^9, 
   3.65971636968896*^9}, {3.65971707049662*^9, 3.65971709501581*^9}, {
   3.668195871223731*^9, 3.668195879311535*^9}, {3.679745920738942*^9, 
   3.679745967642085*^9}, {3.679749360857093*^9, 3.6797493677122726`*^9}, {
   3.679752361773512*^9, 3.67975237502001*^9}, {3.679752744485815*^9, 
   3.679752767267576*^9}, {3.679756003875307*^9, 3.679756006457773*^9}, {
   3.681634909573249*^9, 3.68163496234107*^9}, {3.684488252477582*^9, 
   3.6844882564378357`*^9}, {3.730399684739232*^9, 3.730399686314993*^9}},
 CellLabel->"In[1]:=",
 CellID->425002280,ExpressionUUID->"eace6d7c-1442-4bbe-8c2e-e6044974d953"],

Cell[BoxData[
 TagBox[GridBox[{
    {"", "\<\"Structure factor\"\>", "\<\"Phase\"\>", "\<\"Bragg angle\"\>", \
"\<\"Extinction length\"\>", "\<\"Darwin width\"\>"},
    {"\<\"(hkl)\"\>", "\<\"|\\!\\(\\*SubscriptBox[\\(F\\), \
\\(hkl\\)]\\)|\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Phi]\\), \\(hkl\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(B\\)]\\) [\
\[Degree]]\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalLambda]\\), \
\\(0\\)]\\) [\[Micro]m]\"\>", "\<\"2\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \
\\(os\\)]\\) [\[Micro]rad]\"\>"},
    {
     TagBox["\<\"(111)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"59.374\"\>",
       59.37449374751476,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.620\"\>",
       -179.62024908074778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"6.495\"\>",
       6.494621582689584,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"13.851\"\>",
       13.85146765701755,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"14.504\"\>",
       14.504073308072288`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(022)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"68.226\"\>",
       68.22574124200922,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.540\"\>",
       -179.54166620356438`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"10.644\"\>",
       10.64409509941302,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.606\"\>",
       12.60617410751433,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"9.866\"\>",
       9.866423774204506,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(113)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"44.717\"\>",
       44.716560654590026`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.510\"\>",
       -179.51128422917856`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"12.509\"\>",
       12.50877044740024,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.777\"\>",
       19.776816340698257`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.399\"\>",
       5.399217676267833,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(004)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"57.093\"\>",
       57.09341563428689,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"-179.470\"\>",
       -179.4691527064153,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"15.142\"\>",
       15.142241175278835`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.255\"\>",
       16.254511330202437`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"5.509\"\>",
       5.508875689826976,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(133)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"38.199\"\>",
       38.19901821093179,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.554\"\>",
       0.5544954225741836,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"16.538\"\>",
       16.538154912829373`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.036\"\>",
       25.036351186487778`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.305\"\>",
       3.3048465758747456`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(224)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"49.473\"\>",
       49.472520483306,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.594\"\>",
       0.5937683753407871,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"18.658\"\>",
       18.658282721659315`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"20.368\"\>",
       20.367813069538332`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"3.657\"\>",
       3.6571856184758182`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(333)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(115)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"33.235\"\>",
       33.235446908898545`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.618\"\>",
       0.6176951383523439,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"19.836\"\>",
       19.836049374754783`,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"31.326\"\>",
       31.32632961299309,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.258\"\>",
       2.257994166246536,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]},
    {
     TagBox["\<\"(044)\"\>",
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"43.239\"\>",
       43.23889856485038,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"0.658\"\>",
       0.6584642036912418,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"21.680\"\>",
       21.67957635859242,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"25.491\"\>",
       25.49124240794711,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ], 
     TagBox[
      InterpretationBox["\<\"2.580\"\>",
       2.58015073697375,
       AutoDelete->True],
      NumberForm[#, {5, 3}, DigitBlock -> 3, NumberSeparator -> ","]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {{
        RGBColor[0.87, 0.94, 1]}}},
   GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {{None}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}, 
     "ItemsIndexed" -> {{{1, 1}, {1, 6}} -> (FontFamily -> 
        "Adobe Garamond Pro"), {{2, 2}, {1, 6}} -> (FontFamily -> 
        "Latin Modern Roman"), {{3, 11}, {1, 6}} -> (FontFamily -> 
        "Inconsolata")}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0.5}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.6845532396418*^9, 3.685786710746339*^9, 
  3.714719110018859*^9, 3.730399691288527*^9},
 CellLabel->"Out[1]=",
 CellID->1991587984,ExpressionUUID->"143ad88c-3063-40be-96d3-192435c0a654"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "9b646363-cf7c-4841-af57-daa71694135f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"80bea25c-e3b4-48fd-bb77-7bd28ed38bfc"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "f1d6b8a2-2813-4992-8fc4-173b9c23d558"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"2d72ac3b-b0a3-42e9-8a01-2a6663efd341"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"91619e55-5e7f-4984-be83-05e12c311eb6"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.6845528011161633`*^9, 3.684552804314378*^9}},
 CellID->2048971458,ExpressionUUID->"f131a1f7-a512-4a3d-a508-359c3a229082"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"StructureFactorTable", "::", "invcustom"}], "=", 
   "\"\<Invalid setting for the \[LeftGuillemet]CustomReflections\
\[RightGuillemet] option.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"StructureFactorTable", "::", "sort"}], "=", 
    "\"\<Invalid \[LeftGuillemet]Sort\[RightGuillemet] option.\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "StructureFactorTable", "]"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "DarwinWidth", " ", "and", " ", "ExtinctionLength", " ", "options"}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<Polarisation\>\"", "\[Rule]", "\"\<\[Pi]\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"StructureFactor", " ", "options"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Threshold\>\"", "\[Rule]", 
       RowBox[{"Power", "[", 
        RowBox[{"10.", ",", 
         RowBox[{"-", "6"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"ReflectionList", " ", "options"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<SplitEquivalent\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<CustomReflections\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<ReflectionListKeep\>\"", "\[Rule]", "50"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"StructureFactorTable", " ", "options"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Keep\>\"", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"\"\<Sort\>\"", "\[Rule]", 
       RowBox[{"-", "2"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<TitleStyle\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontFamily", "\[Rule]", "\"\<Baskerville\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "15"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<SubtitleStyle\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Gray"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<NumberStyle\>\"", "\[Rule]", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Background", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "None", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"None", ",", 
           RowBox[{"{", 
            RowBox[{"None", ",", "LightGray"}], "}"}]}], "}"}]}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Dividers", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"None", ",", 
           RowBox[{"{", "True", "}"}], ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"None", ",", "None", ",", "True"}], "}"}]}], "}"}]}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "StructureFactorTable"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_.", ",", "_.", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.667811591227736*^9, 3.668105730347047*^9, {3.6681057635034733`*^9, 
   3.668105770743743*^9}, {3.668105863188552*^9, 3.6681058655778723`*^9}, {
   3.668194174710959*^9, 3.668194200997211*^9}, {3.679749057336968*^9, 
   3.679749065727788*^9}, {3.6797491392317333`*^9, 3.679749188325144*^9}, {
   3.679749469999255*^9, 3.679749477094261*^9}, {3.679752707933913*^9, 
   3.679752720990613*^9}, {3.679755885846201*^9, 3.679755887076858*^9}, {
   3.6797559482689734`*^9, 3.679755950347142*^9}, {3.681633881405313*^9, 
   3.681633882428932*^9}, {3.681633921173172*^9, 3.681634041501145*^9}, {
   3.681634191462041*^9, 3.681634194092729*^9}, {3.681634316204688*^9, 
   3.6816343331267242`*^9}, {3.681634485786175*^9, 3.681634488746072*^9}, {
   3.685266410723361*^9, 3.685266411087372*^9}, {3.685419621265628*^9, 
   3.685419621340851*^9}, {3.68542135881497*^9, 3.68542136123435*^9}, {
   3.685421972498349*^9, 3.685421973457191*^9}, {3.6854220084304543`*^9, 
   3.685422008728126*^9}, {3.6857080176285677`*^9, 3.685708046018064*^9}, {
   3.685777331857526*^9, 3.685777354965396*^9}, {3.685779053854518*^9, 
   3.68577905613339*^9}, {3.685779091629904*^9, 3.685779103410666*^9}, {
   3.685779834029439*^9, 3.685779834082477*^9}, {3.686534688749203*^9, 
   3.6865346889520035`*^9}, {3.7303848395375853`*^9, 
   3.7303848578650017`*^9}, {3.7303852705109243`*^9, 3.730385288030526*^9}, 
   3.730385333695622*^9, {3.730385382941999*^9, 3.730385452826951*^9}, {
   3.7303855440435553`*^9, 3.730385550850548*^9}, {3.756717554120699*^9, 
   3.756717568915251*^9}},
 CellLabel->"In[871]:=",
 CellID->1780279551,ExpressionUUID->"940c534d-3b37-4e8f-aa2c-3d85cdb1fadb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"StructureFactorTable", "[", "\[IndentingNewLine]", 
   RowBox[{"crystal_String", ",", "\[IndentingNewLine]", 
    RowBox[{"lambda", ":", 
     RowBox[{"_", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"NumericQ", "[", "#", "]"}], "||", 
         RowBox[{"QuantityQ", "[", "#", "]"}]}], "&"}], ")"}]}], ":", 
     RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", 
    "condition___Condition", ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "\[Lambda]", ",", "hkl", ",", "H", ",", "sl", ",", "bragg", ",", 
      "\[IndentingNewLine]", "column1", ",", "column2", ",", "column3", ",", 
      "column4", ",", "column5", ",", "column6", ",", "\[IndentingNewLine]", 
      "V", ",", "\[IndentingNewLine]", "zeros", ",", "\[IndentingNewLine]", 
      "R", ",", "\[Theta]", ",", "Fh", ",", "FhBar", ",", "\[CapitalLambda]o",
       ",", "\[Delta]os", ",", "\[IndentingNewLine]", "temp", ",", "temp1", 
      ",", "temp2", ",", "temp3", ",", "temp4", ",", "temp5", ",", "temp6", 
      ",", "\[IndentingNewLine]", "sort", ",", "keep", ",", "polarisation", 
      ",", "threshold"}], "}"}], ",", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"--", "-"}], "*", " ", "Preparations", " ", "*", 
      RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
    RowBox[{"(*", " ", 
     RowBox[{"Checking", " ", "wavelength"}], " ", "*)"}], 
    "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"\[Lambda]", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<ProcessWavelength\>\"", ",", "crystal", ",", "lambda"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Preparing", " ", "list", " ", "of", " ", "reflections"}], " ", 
      "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"hkl", "=", 
      RowBox[{"Check", "[", 
       RowBox[{
        RowBox[{"ReflectionList", "[", "\[IndentingNewLine]", "\t", 
         RowBox[{
         "crystal", ",", "\[Lambda]", ",", "condition", ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"\"\<SplitEquivalent\>\"", "\[Rule]", 
           RowBox[{"OptionValue", "[", "\"\<SplitEquivalent\>\"", "]"}]}], 
          ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"\"\<CustomReflections\>\"", "\[Rule]", 
           RowBox[{"OptionValue", "[", "\"\<CustomReflections\>\"", "]"}]}], 
          ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"\"\<Keep\>\"", "\[Rule]", 
           RowBox[{
           "OptionValue", "[", "\"\<ReflectionListKeep\>\"", "]"}]}]}], 
         "\[IndentingNewLine]", "\t", "]"}], ",", 
        RowBox[{"Abort", "[", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Useful", " ", "variables"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"H", "=", 
      RowBox[{"Chop", "@", 
       RowBox[{"N", "@", 
        RowBox[{"Inverse", "@", 
         RowBox[{"GetCrystalMetric", "[", "crystal", "]"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Using", " ", "inner", " ", "product", " ", "and", " ", 
       RowBox[{"Bragg", "'"}], "s", " ", "law"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{
      RowBox[{"sl", "[", "h_", "]"}], ":=", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"h", ".", "H", ".", "h"}], "]"}], "/", "2"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{
      RowBox[{"bragg", "[", "h_", "]"}], ":=", 
      RowBox[{"N", "[", 
       RowBox[{"ArcSin", "[", 
        RowBox[{
         RowBox[{"sl", "[", "h", "]"}], "*", 
         RowBox[{"QuantityMagnitude", "@", "\[Lambda]"}]}], "]"}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Miscellaneous", " ", "options"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"polarisation", "=", 
      RowBox[{"OptionValue", "[", "\"\<Polarisation\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"threshold", "=", 
      RowBox[{"OptionValue", "[", "\"\<Threshold\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Calculations", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Miller", " ", "indices"}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"column1", "=", 
      RowBox[{"MillerNotationToString", "/@", "hkl"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Structure", " ", "factors"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"Check", "[", 
       RowBox[{
        RowBox[{"StructureFactor", "[", 
         RowBox[{"crystal", ",", "hkl", ",", "\[Lambda]", ",", 
          RowBox[{"\"\<Threshold\>\"", "\[Rule]", "threshold"}]}], "]"}], ",", 
        RowBox[{"Abort", "[", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"column2", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"temp", "\[LeftDoubleBracket]", 
         RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"OptionValue", "[", "\"\<Threshold\>\"", "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Structure", " ", "factor", " ", "zero", " ", "positions"}], 
      " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
     RowBox[{"zeros", "=", 
      RowBox[{"Position", "[", 
       RowBox[{"column2", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", "Phase", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"column3", "=", 
      RowBox[{"QuantityMagnitude", "@", 
       RowBox[{"temp", "\[LeftDoubleBracket]", 
        RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}]}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"column3", "=", 
      RowBox[{"ReplacePart", "[", 
       RowBox[{"column3", ",", 
        RowBox[{"zeros", "\[Rule]", "\"\<\[Dash]\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Bragg", " ", "angles"}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"column4", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"bragg", "/@", "hkl"}], ")"}], "/", "Degree"}]}], ";", 
     "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Unit", " ", "cell", " ", "volume"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"V", "=", 
      RowBox[{"Sqrt", "@", 
       RowBox[{"Det", "@", 
        RowBox[{"GetCrystalMetric", "[", "crystal", "]"}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Extinction", " ", "length", " ", 
       RowBox[{"(", 
        RowBox[{"Pendell\[ODoubleDot]sung", " ", "distance"}], ")"}]}], " ", 
      "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"R", "=", 
      RowBox[{"QuantityMagnitude", "@", 
       RowBox[{"UnitConvert", "[", "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{"Quantity", "[", "\"\<ClassicalElectronRadius\>\"", "]"}], 
         ",", "\"\<Angstroms\>\""}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"\[Theta]", "=", 
      RowBox[{"column4", "*", "Degree"}]}], ";", "\[IndentingNewLine]", "\t", 
     
     RowBox[{"Fh", "=", "column2"}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"FhBar", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"StructureFactor", "[", 
         RowBox[{"crystal", ",", 
          RowBox[{"-", "hkl"}], ",", "\[Lambda]"}], "]"}], ")"}], 
       "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", "\t", 
     RowBox[{"\[CapitalLambda]o", "=", 
      RowBox[{"Quiet", "@", 
       RowBox[{"ExtinctionLength", "[", 
        RowBox[{
        "crystal", ",", "\[Lambda]", ",", "hkl", ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}], ",", 
         RowBox[{"\"\<Polarisation\>\"", "\[Rule]", "polarisation"}]}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"\[CapitalLambda]o", "=", 
      RowBox[{"ReplacePart", "[", 
       RowBox[{"\[CapitalLambda]o", ",", 
        RowBox[{"zeros", "\[Rule]", "\"\<\[Dash]\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Darwin", " ", "width"}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"\[Delta]os", "=", 
      RowBox[{"Quiet", "@", 
       RowBox[{"DarwinWidth", "[", 
        RowBox[{
        "crystal", ",", "\[Lambda]", ",", "hkl", ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}], ",", 
         RowBox[{"\"\<Polarisation\>\"", "\[Rule]", "polarisation"}]}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"\[Delta]os", "=", 
      RowBox[{"ReplacePart", "[", 
       RowBox[{"\[Delta]os", ",", 
        RowBox[{"zeros", "\[Rule]", "\"\<\[Dash]\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", "\t", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"column5", ",", "column6"}], "}"}], "=", 
      RowBox[{"{", 
       RowBox[{"\[CapitalLambda]o", ",", "\[Delta]os"}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Preparing", " ", "output", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"temp1", "=", 
      RowBox[{"{", 
       RowBox[{
       "column1", ",", "column2", ",", "column3", ",", "column4", ",", 
        "column5", ",", "column6"}], "}"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"Sorting", " ", "option"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"sort", "=", 
      RowBox[{"OptionValue", "[", "\"\<Sort\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t\t", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Check", " ", "sort", " ", "setting"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"Range", "[", "6", "]"}], ",", 
          RowBox[{"Abs", "@", "sort"}]}], "]"}]}], ",", "\[IndentingNewLine]",
        "\t\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"StructureFactorTable", "::", "sort"}], "]"}], ";", 
        "\[IndentingNewLine]", "\t\t", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\t\t", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Sorting", " ", "by", " ", "a", " ", "specific", " ", "column"}], " ", 
      "*)"}], "\t\t\t", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"temp2", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{
        RowBox[{"Transpose", "@", "temp1"}], ",", "\[IndentingNewLine]", 
        "\t\t", 
        RowBox[{
         RowBox[{
          RowBox[{"#1", "\[LeftDoubleBracket]", 
           RowBox[{"Abs", "@", "sort"}], "\[RightDoubleBracket]"}], "<", 
          RowBox[{"#2", "\[LeftDoubleBracket]", 
           RowBox[{"Abs", "@", "sort"}], "\[RightDoubleBracket]"}]}], "&"}]}],
        "]"}]}], ";", "\[IndentingNewLine]", "\t\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Reversing", " ", "if", " ", "negative"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"sort", "<", "0"}], ",", 
       RowBox[{"temp2", "=", 
        RowBox[{"Reverse", "@", "temp2"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{
       "Truncate", " ", "the", " ", "list", " ", "of", " ", "reflections"}]}],
       " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
     RowBox[{"keep", "=", 
      RowBox[{"OptionValue", "[", "\"\<Keep\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"keep", "\[Equal]", "All"}], ",", 
       RowBox[{"keep", "=", 
        RowBox[{"Length", "@", "hkl"}]}]}], "]"}], ";", "\[IndentingNewLine]",
      "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"!", 
         RowBox[{"IntegerQ", "[", "keep", "]"}]}], "||", 
        RowBox[{"!", 
         RowBox[{"Positive", "[", "keep", "]"}]}]}], ",", 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"StructureFactorTable", "::", "invkeep"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\t\t", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"temp2", "=", 
      RowBox[{"Take", "[", 
       RowBox[{"temp2", ",", 
        RowBox[{"Min", "[", 
         RowBox[{"keep", ",", 
          RowBox[{"Length", "@", "hkl"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Rounding", " ", "off", " ", "numbers"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp3", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"NumberForm", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "3"}], "}"}], ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"DigitBlock", "\[Rule]", "3"}], ",", 
          RowBox[{"NumberSeparator", "\[Rule]", "\"\<,\>\""}]}], "]"}], "&"}],
        "/@", 
       RowBox[{"(", 
        RowBox[{"Flatten", "@", "temp2"}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp4", "=", 
      RowBox[{"Partition", "[", 
       RowBox[{"temp3", ",", 
        RowBox[{"Last", "@", 
         RowBox[{"Dimensions", "@", "temp2"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Table", " ", "construction", " ", "*", 
       
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"temp5", "=", 
      RowBox[{"PrependTo", "[", 
       RowBox[{"temp4", ",", "\[IndentingNewLine]", "\t", 
        RowBox[{"{", 
         RowBox[{
         "\"\<(hkl)\>\"", ",", 
          "\"\<|\!\(\*SubscriptBox[\(F\), \(hkl\)]\)|\>\"", ",", 
          "\"\<\!\(\*SubscriptBox[\(\[Phi]\), \(hkl\)]\) [\[Degree]]\>\"", 
          ",", "\[IndentingNewLine]", "\t", 
          "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(B\)]\) [\[Degree]]\>\"", 
          ",", "\"\<\!\(\*SubscriptBox[\(\[CapitalLambda]\), \(0\)]\) [\
\[Micro]m]\>\"", ",", 
          "\"\<2\!\(\*SubscriptBox[\(\[Delta]\), \(os\)]\) \
[\[Micro]rad]\>\""}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"temp6", "=", 
      RowBox[{"PrependTo", "[", 
       RowBox[{"temp5", ",", "\[IndentingNewLine]", "\t", 
        RowBox[{"{", 
         RowBox[{
         "Null", ",", "\"\<Structure factor\>\"", ",", "\"\<Phase\>\"", ",", 
          "\[IndentingNewLine]", "\t", "\"\<Bragg angle\>\"", ",", 
          "\"\<Extinction length\>\"", ",", "\[IndentingNewLine]", "\t", 
          "\"\<Darwin width\>\""}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"Grid", "[", 
      RowBox[{"temp6", ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"Dividers", "\[Rule]", 
        RowBox[{"OptionValue", "[", "Dividers", "]"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"Background", "\[Rule]", 
        RowBox[{"OptionValue", "[", "Background", "]"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"Alignment", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Center"}], "}"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"Spacings", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", 
          RowBox[{"2", "\[Rule]", "0.5"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"ItemStyle", "\[Rule]", "\[IndentingNewLine]", "\t", 
        RowBox[{"{", 
         RowBox[{
         "Automatic", ",", "\[IndentingNewLine]", "\t", "Automatic", ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"{", "\[IndentingNewLine]", "\t", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"First", "@", 
                  RowBox[{"Dimensions", "@", "temp1"}]}]}], "}"}]}], "}"}], 
             "\[Rule]", 
             RowBox[{"OptionValue", "[", "\"\<TitleStyle\>\"", "]"}]}], ",", 
            "\[IndentingNewLine]", "\t", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"First", "@", 
                  RowBox[{"Dimensions", "@", "temp1"}]}]}], "}"}]}], "}"}], 
             "\[Rule]", 
             RowBox[{"OptionValue", "[", "\"\<SubtitleStyle\>\"", "]"}]}], 
            ",", "\[IndentingNewLine]", "\t", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"3", ",", 
                 RowBox[{
                  RowBox[{"First", "@", 
                   RowBox[{"Dimensions", "@", "temp2"}]}], "+", "2"}]}], 
                "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"First", "@", 
                  RowBox[{"Dimensions", "@", "temp1"}]}]}], "}"}]}], "}"}], 
             "\[Rule]", 
             RowBox[{"OptionValue", "[", "\"\<NumberStyle\>\"", "]"}]}]}], 
           "\[IndentingNewLine]", "\t", "}"}]}], "\[IndentingNewLine]", "\t", 
         "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.6681059041705027`*^9, {3.668106026194642*^9, 
   3.668106055503222*^9}, 3.668192910799576*^9, {3.6681941224670277`*^9, 
   3.668194126738676*^9}, {3.668194161897127*^9, 3.6681941659530773`*^9}, {
   3.668194225695754*^9, 3.6681943053267803`*^9}, {3.668194339678026*^9, 
   3.668194344188929*^9}, {3.6681944039575644`*^9, 3.668194466586141*^9}, {
   3.6681945564479427`*^9, 3.6681945658649063`*^9}, {3.668194622790612*^9, 
   3.668194759771111*^9}, {3.66819490548871*^9, 3.668195027229073*^9}, {
   3.6681951039560843`*^9, 3.66819510554707*^9}, {3.66819513761075*^9, 
   3.668195162577676*^9}, {3.668195214651011*^9, 3.668195218113638*^9}, 
   3.6681952494025793`*^9, 3.6681954247493143`*^9, 3.66824401430801*^9, 
   3.6684058731849527`*^9, {3.668405944769766*^9, 3.668405951720669*^9}, {
   3.6736853314815063`*^9, 3.673685355082993*^9}, {3.6736944025692043`*^9, 
   3.673694463026792*^9}, {3.679749111284326*^9, 3.679749119529436*^9}, {
   3.679749272848419*^9, 3.679749286046275*^9}, 3.6797493496599827`*^9, {
   3.679749406699519*^9, 3.6797494299138737`*^9}, {3.679752731081196*^9, 
   3.679752735159561*^9}, {3.679755957575972*^9, 3.679755974526786*^9}, {
   3.679757886760714*^9, 3.679757915049499*^9}, {3.679757952809022*^9, 
   3.67975795343259*^9}, {3.6797580074154797`*^9, 3.6797580077028008`*^9}, {
   3.6816343573203783`*^9, 3.681634369229891*^9}, {3.6816344032239857`*^9, 
   3.681634446203055*^9}, {3.681634504934698*^9, 3.681634520684157*^9}, {
   3.681668871102579*^9, 3.681668878253851*^9}, {3.684485120925991*^9, 
   3.684485135297613*^9}, {3.684485165928299*^9, 3.684485198270612*^9}, {
   3.684485246037017*^9, 3.684485436633341*^9}, {3.6844854724040728`*^9, 
   3.6844855337764053`*^9}, {3.6844856008386497`*^9, 
   3.6844857691632633`*^9}, {3.684485809188869*^9, 3.6844858205229397`*^9}, {
   3.6844858510434237`*^9, 3.684485911259457*^9}, {3.6844859442451973`*^9, 
   3.684486072812007*^9}, {3.6844861149482327`*^9, 3.6844862603708687`*^9}, {
   3.68448629383969*^9, 3.684486347931925*^9}, {3.684486396878598*^9, 
   3.6844864256933117`*^9}, {3.6844865317020893`*^9, 
   3.6844865929976273`*^9}, {3.6844866482327633`*^9, 3.684486740721855*^9}, {
   3.684487045709893*^9, 3.684487070636261*^9}, 3.684487103167721*^9, {
   3.684487880088442*^9, 3.6844879170825977`*^9}, {3.6850834290776587`*^9, 
   3.685083453530726*^9}, {3.685083491735672*^9, 3.685083493793859*^9}, {
   3.685084511620009*^9, 3.685084534377172*^9}, {3.6852513095226097`*^9, 
   3.685251331509769*^9}, {3.685265793853511*^9, 3.685265803975073*^9}, {
   3.685265839556972*^9, 3.68526596218845*^9}, {3.685266073088797*^9, 
   3.685266093823522*^9}, {3.685266220826173*^9, 3.685266238271948*^9}, {
   3.685266275245944*^9, 3.685266340576406*^9}, {3.685267063973906*^9, 
   3.68526709334811*^9}, {3.685270774115447*^9, 3.6852709228653717`*^9}, {
   3.685300321882452*^9, 3.685300335601007*^9}, {3.685421443505704*^9, 
   3.685421463958482*^9}, {3.685422156442091*^9, 3.685422172609242*^9}, {
   3.685699369585546*^9, 3.685699369868608*^9}, {3.685707914475984*^9, 
   3.6857079249369507`*^9}, {3.6857080309963493`*^9, 3.685708055487095*^9}, 
   3.685765931784999*^9, {3.685776663041807*^9, 3.685776681732292*^9}, {
   3.685777377256502*^9, 3.685777405662352*^9}, 3.685777524891036*^9, {
   3.6857787731275463`*^9, 3.68577877339953*^9}, {3.685778916829303*^9, 
   3.68577891751688*^9}, {3.685779003826284*^9, 3.6857790040668373`*^9}, {
   3.685779111530941*^9, 3.6857791390455627`*^9}, {3.6857791829251223`*^9, 
   3.685779226673965*^9}, {3.685779257568705*^9, 3.685779324132321*^9}, {
   3.685863811228397*^9, 3.685863888812524*^9}, {3.6858639418180532`*^9, 
   3.685864030534474*^9}, {3.685864068109055*^9, 3.6858640728944902`*^9}, {
   3.685864320620183*^9, 3.685864364665761*^9}, {3.685881483399377*^9, 
   3.685881483983437*^9}, {3.6865346936788034`*^9, 3.686534729215604*^9}, {
   3.6865348797712045`*^9, 3.6865349111896048`*^9}, {3.6865351710388064`*^9, 
   3.6865351905388064`*^9}, {3.6865354148980083`*^9, 
   3.6865354271440077`*^9}, {3.6866574967551813`*^9, 3.68665754350769*^9}, {
   3.7147128016475286`*^9, 3.7147128052312393`*^9}, {3.714712861943325*^9, 
   3.7147128669009533`*^9}, {3.714712922756605*^9, 3.714712927633663*^9}, {
   3.714713663696129*^9, 3.7147136882868347`*^9}, {3.7147164475537777`*^9, 
   3.7147164612558727`*^9}, {3.715330575007782*^9, 3.71533060055259*^9}, {
   3.71533063423807*^9, 3.7153306667473297`*^9}, {3.717740896749968*^9, 
   3.717740919759727*^9}, {3.719080061839922*^9, 3.7190800635580177`*^9}, {
   3.719080096107452*^9, 3.71908013681688*^9}, 3.726561582555664*^9, 
   3.727675289752404*^9, {3.730379987198442*^9, 3.7303800426667137`*^9}, {
   3.730380220134783*^9, 3.730380225254434*^9}, 3.7303802840384197`*^9, {
   3.7303805113333607`*^9, 3.730380531762488*^9}, {3.7303805650160418`*^9, 
   3.730380592271204*^9}, {3.730380624520441*^9, 3.7303806444062567`*^9}, {
   3.730383886626964*^9, 3.7303838976804667`*^9}, {3.7303841186379232`*^9, 
   3.730384121147691*^9}, {3.730384175596126*^9, 3.730384297453144*^9}, {
   3.730384401122053*^9, 3.7303844100839863`*^9}, {3.730384791008588*^9, 
   3.730384825634898*^9}, {3.730398391122581*^9, 3.730398403439115*^9}, {
   3.7303989641138067`*^9, 3.730399035992712*^9}, {3.730399129245757*^9, 
   3.730399157067222*^9}, 3.737968267054536*^9, {3.737968468576823*^9, 
   3.7379684686723223`*^9}, {3.7391703649281387`*^9, 3.739170378745417*^9}, {
   3.758530366383757*^9, 3.758530384916501*^9}, {3.759520405940363*^9, 
   3.759520406161471*^9}, 3.7627930940643167`*^9, {3.786968634449304*^9, 
   3.786968636350594*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[876]:=",
 CellID->268760006,ExpressionUUID->"ed46f32f-1720-4790-865e-524a4176d54c"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[56778, 1481, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"e58e5c6e-fc63-4129-8aec-e9103a4d2617",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 354028, 9073}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 669, 15, 24, "History",ExpressionUUID->"1fb085bc-c15a-486f-b162-adec3131e850",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1252, 39, 123, 1, 29, "CategorizationSection",ExpressionUUID->"6f2396c0-2090-47fd-9408-6dee3441ccf0",
 CellID->1122911449],
Cell[1378, 42, 134, 2, 30, "Categorization",ExpressionUUID->"3f08ab79-fb62-4d3a-a265-2caf2bee7898",
 CellID->686433507],
Cell[1515, 46, 225, 4, 30, "Categorization",ExpressionUUID->"c51f5cd2-3ae5-4810-9095-1cee94303846",
 CellID->605800465],
Cell[1743, 52, 172, 3, 30, "Categorization",ExpressionUUID->"153e3ed9-a142-452b-ad9a-6d6ec58bcbc0",
 CellID->468444828],
Cell[1918, 57, 222, 3, 30, "Categorization",ExpressionUUID->"b08e3d72-aa70-419d-80e6-b21ab3fc521b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2177, 65, 110, 1, 29, "KeywordsSection",ExpressionUUID->"f0fca856-ae34-4ab0-8f4b-85eef6082726",
 CellID->477174294],
Cell[2290, 68, 100, 1, 70, "Keywords",ExpressionUUID->"6f2106bd-55ed-44da-8bb5-5b9fce45d875",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2427, 74, 120, 1, 19, "TemplatesSection",ExpressionUUID->"01db8687-41c0-4695-865c-39fdd1457dc2",
 CellID->1872225408],
Cell[2550, 77, 149, 2, 70, "Template",ExpressionUUID->"7cfe245d-a8a7-44b2-8bc0-ce9d0a68276e",
 CellID->1562036412],
Cell[2702, 81, 137, 2, 70, "Template",ExpressionUUID->"dcb8b3cc-0eda-488c-ac46-2979b3efcf63",
 CellID->158391909],
Cell[2842, 85, 136, 2, 70, "Template",ExpressionUUID->"fea795dc-d1e4-4eaa-93c9-7f7bc8330478",
 CellID->1360575930],
Cell[2981, 89, 137, 2, 70, "Template",ExpressionUUID->"8d57821b-e224-4b80-9fa5-7591e009aa52",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3155, 96, 108, 1, 19, "DetailsSection",ExpressionUUID->"5ef2be15-2bae-44ed-9304-c45e9c9c4f04",
 CellID->307771771],
Cell[3266, 99, 118, 2, 70, "Details",ExpressionUUID->"e610e31c-9103-4511-823b-7b50e02e2745",
 CellID->670882175],
Cell[3387, 103, 124, 2, 70, "Details",ExpressionUUID->"952310f9-9324-448b-a1d3-34962c361d52",
 CellID->350963985],
Cell[3514, 107, 119, 2, 70, "Details",ExpressionUUID->"9b52d3cc-f78b-48d6-af21-473887d54cd2",
 CellID->8391405],
Cell[3636, 111, 124, 2, 70, "Details",ExpressionUUID->"2f2e6e5c-84b9-447c-bb81-a62f19306b47",
 CellID->3610269],
Cell[3763, 115, 116, 2, 70, "Details",ExpressionUUID->"948e07c3-111a-41fa-82d8-ae2ac0ed02a2",
 CellID->401364205],
Cell[3882, 119, 116, 2, 70, "Details",ExpressionUUID->"d8302a04-007e-4f9d-9ad2-fc2e389da78d",
 CellID->350204745],
Cell[4001, 123, 118, 2, 70, "Details",ExpressionUUID->"f217f087-8aaa-4994-9d21-53dd90609bd5",
 CellID->732958810],
Cell[4122, 127, 133, 2, 70, "Details",ExpressionUUID->"31ceb816-317b-4ce2-b805-e5861ee79f70",
 CellID->222905350],
Cell[4258, 131, 301, 8, 70, "Details",ExpressionUUID->"a7678ac9-9135-4d6c-bc4e-8c016614cdf9",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4596, 144, 184, 2, 63, "ObjectName",ExpressionUUID->"588d68dd-b00a-4ba7-ba15-0661788eba37",
 CellID->1224892054],
Cell[4783, 148, 2703, 62, 183, "Usage",ExpressionUUID->"6d1dec16-1b25-44a2-9ffd-2ac1de88626f",
 CellID->982511436],
Cell[7489, 212, 195, 2, 25, "Notes",ExpressionUUID->"e06f89bd-5871-4454-a08a-3a9439a34ec6",
 CellID->1803112370],
Cell[7687, 216, 3310, 77, 155, "3ColumnTableMod",ExpressionUUID->"9c09749f-fea2-40be-aa7a-3c0e553a5cb9",
 CellID->410498224],
Cell[11000, 295, 206, 2, 25, "Notes",ExpressionUUID->"dd5b1f70-ba2d-470d-ad3e-1c56d397fb89",
 CellID->1224660626],
Cell[11209, 299, 3518, 73, 249, "3ColumnTableMod",ExpressionUUID->"b57edaf1-378d-4c4f-b030-e4a3d760aa80",
 CellID->633778926],
Cell[14730, 374, 1092, 20, 70, "Notes",ExpressionUUID->"38b3757d-c566-44a7-84e4-e146db049459",
 CellID->1882481983],
Cell[15825, 396, 1581, 35, 70, "Notes",ExpressionUUID->"251c265a-46df-460d-9351-2c9ca9c04157",
 CellID->1343776438],
Cell[17409, 433, 678, 10, 70, "Notes",ExpressionUUID->"75c64b47-c809-4111-ac4c-f4ae1b6d9235",
 CellID->1851698817]
}, Open  ]],
Cell[CellGroupData[{
Cell[18124, 448, 112, 1, 70, "TutorialsSection",ExpressionUUID->"9675e08a-6bec-4589-aead-6a075f05e1ac",
 CellID->250839057],
Cell[18239, 451, 100, 1, 70, "Tutorials",ExpressionUUID->"b11df7fa-c09c-40f5-8c65-58da3e202241",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[18376, 457, 138, 1, 70, "RelatedDemonstrationsSection",ExpressionUUID->"53567de9-2f3d-486d-933f-29fa08250dc7",
 CellID->1268215905],
Cell[18517, 460, 113, 1, 70, "RelatedDemonstrations",ExpressionUUID->"aeaadb65-96cf-46de-bcd2-205334489f0c",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[18667, 466, 120, 1, 70, "RelatedLinksSection",ExpressionUUID->"c5169ccf-44a0-413d-9a40-f72a57b12484",
 CellID->1584193535],
Cell[18790, 469, 104, 1, 16, "RelatedLinks",ExpressionUUID->"0d8162cf-8cef-426c-8270-eb9a379e5de4",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[18931, 475, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"b0a93234-b73a-451e-8fef-7ee036a2d338",
 CellID->1255426704],
Cell[19044, 478, 2153, 53, 39, "SeeAlso",ExpressionUUID->"9ce76da8-5535-4a7b-9f0f-83cd31bea5a6",
 CellID->2007954848]
}, Open  ]],
Cell[CellGroupData[{
Cell[21234, 536, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"fba1337c-f7ba-4659-ba0a-831629bb3935",
 CellID->38303248],
Cell[21349, 539, 101, 1, 16, "MoreAbout",ExpressionUUID->"c7632d91-c6c8-4b33-904f-22e301a6b587",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[21487, 545, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"aa0e7b56-6d5b-48d8-89b9-a396728d8b96",
 CellID->880084151],
Cell[CellGroupData[{
Cell[21923, 560, 304, 6, 29, "Input",ExpressionUUID->"232c8160-642b-4c1a-846f-9b0a174bea36",
 CellID->103420319],
Cell[22230, 568, 12587, 329, 232, "Output",ExpressionUUID->"ad2cce55-dc1d-4e71-83c7-311a9673ce21",
 CellID->1552924903]
}, Open  ]],
Cell[CellGroupData[{
Cell[34854, 902, 241, 5, 17, "ExampleDelimiter",ExpressionUUID->"77de089b-973a-4436-9e36-0ffbed4a3183",
 CellID->35493731],
Cell[CellGroupData[{
Cell[35120, 911, 434, 8, 29, "Input",ExpressionUUID->"8a507fef-1efb-4fb1-b779-142142ae1f60",
 CellID->1680977441],
Cell[35557, 921, 8488, 216, 164, "Output",ExpressionUUID->"2e007baf-d1ba-4370-b766-9e9b5454f403",
 CellID->406966685]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44094, 1143, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"460a4135-2023-4483-91e1-f803e58d9feb",
 CellID->2075172877],
Cell[CellGroupData[{
Cell[44362, 1152, 515, 9, 29, "Input",ExpressionUUID->"91acb42a-9b10-4f29-b4b9-430c4af71f2c",
 CellID->148632812],
Cell[44880, 1163, 11837, 311, 216, "Output",ExpressionUUID->"b1618571-ec7b-4cbd-a9b7-377050768243",
 CellID->451487502]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[56778, 1481, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"e58e5c6e-fc63-4129-8aec-e9103a4d2617",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[56958, 1487, 242, 5, 33, "ExampleSection",ExpressionUUID->"619b4acd-c345-4d43-90f0-bcacd3b4246b",
 CellID->1293636265],
Cell[57203, 1494, 668, 13, 25, "ExampleText",ExpressionUUID->"1d74cc44-f01d-461a-a740-aee67f8ff04e",
 CellID->1300113681],
Cell[CellGroupData[{
Cell[57896, 1511, 276, 5, 27, "Input",ExpressionUUID->"39312c95-f5b4-4e6c-992d-270d272b1606",
 CellID->436292313],
Cell[58175, 1518, 1402, 23, 125, "Output",ExpressionUUID->"5f71eded-cd3b-422c-b3c7-44601bcad55b",
 CellID->745035991]
}, Open  ]],
Cell[59592, 1544, 614, 10, 22, "ExampleText",ExpressionUUID->"9c28928b-015b-465b-bdae-8a15dead563f",
 CellID->907130284],
Cell[CellGroupData[{
Cell[60231, 1558, 956, 15, 29, "Input",ExpressionUUID->"d7b7dd63-46bd-4e0f-bbce-eb8f6f6e6c08",
 CellID->418600879],
Cell[61190, 1575, 16168, 426, 284, "Output",ExpressionUUID->"2e423d3e-d535-4241-bea0-b6392902a78b",
 CellID->834834807]
}, Open  ]],
Cell[77373, 2004, 1081, 22, 55, "ExampleText",ExpressionUUID->"68568bc0-a482-4e3f-bc93-0c32b9bff42e",
 CellID->61308762],
Cell[78457, 2028, 518, 9, 22, "ExampleText",ExpressionUUID->"35544265-4a15-4ad3-ba76-c1c31c70a314",
 CellID->1474479370],
Cell[CellGroupData[{
Cell[79000, 2041, 441, 8, 50, "Input",ExpressionUUID->"f2ca267d-cc4f-401c-a8dc-9cfb605ccf57",
 CellID->1397010237],
Cell[79444, 2051, 13783, 365, 250, "Output",ExpressionUUID->"da47f407-deb4-4be9-a911-d28716efa22f",
 CellID->783482188]
}, Open  ]],
Cell[CellGroupData[{
Cell[93264, 2421, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"a5cd75d9-c7b9-466b-b52f-ae0a912925c8",
 CellID->1923056819],
Cell[93510, 2428, 444, 11, 70, "ExampleText",ExpressionUUID->"6e10f677-71f1-4c5d-a420-f88215826ef7",
 CellID->1187069583],
Cell[CellGroupData[{
Cell[93979, 2443, 621, 12, 70, "Input",ExpressionUUID->"31bde58f-86bc-49f4-a95a-4e9fb61c93b0",
 CellID->596040468],
Cell[94603, 2457, 6801, 172, 70, "Output",ExpressionUUID->"26078862-1889-4b18-9f34-b6f5cc61d18c",
 CellID->212888011]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[101443, 2634, 265, 5, 70, "ExampleSection",ExpressionUUID->"79ac2c6f-76cd-4f8a-ad39-d2c8e463f069",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[101733, 2643, 244, 5, 70, "ExampleSection",ExpressionUUID->"27fd61d6-2947-4d52-b8de-5401cb018f7f",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[102002, 2652, 319, 6, 70, "ExampleSubsection",ExpressionUUID->"b3fa5d87-89ea-44ad-94f1-7ff9bf291d58",
 CellID->1757724783],
Cell[102324, 2660, 322, 5, 70, "ExampleText",ExpressionUUID->"cdadb404-bd0d-4a2c-ae62-83d5216980f0",
 CellID->1664557484],
Cell[102649, 2667, 284, 5, 70, "ExampleText",ExpressionUUID->"02591d9e-9f5d-42dd-aab0-52c21949ce97",
 CellID->1473008578],
Cell[CellGroupData[{
Cell[102958, 2676, 1071, 17, 70, "Input",ExpressionUUID->"48d74949-2841-452a-875a-23a257e34673",
 CellID->317320958],
Cell[104032, 2695, 12658, 331, 70, "Output",ExpressionUUID->"49eb2581-3d23-49ea-9096-065764b605c0",
 CellID->104622604]
}, Open  ]],
Cell[CellGroupData[{
Cell[116727, 3031, 242, 5, 70, "ExampleDelimiter",ExpressionUUID->"4da2bcb3-4b3b-4a29-987a-efc00180d90f",
 CellID->510143453],
Cell[116972, 3038, 263, 5, 70, "ExampleText",ExpressionUUID->"8b6f6e6b-f928-4eef-afde-d8678e997ac7",
 CellID->533810987],
Cell[CellGroupData[{
Cell[117260, 3047, 1108, 18, 70, "Input",ExpressionUUID->"e0b74f85-4856-4c70-8ed2-61aeeb9ac342",
 CellID->115483248],
Cell[118371, 3067, 12663, 330, 70, "Output",ExpressionUUID->"3a03e727-9c8c-47a9-9ae4-4a04ffd52d32",
 CellID->522624528]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[131095, 3404, 382, 7, 70, "ExampleSubsection",ExpressionUUID->"64bf8ae6-dc58-433c-80dc-581ebafd2ae0",
 CellID->1661059421],
Cell[131480, 3413, 1002, 21, 70, "ExampleText",ExpressionUUID->"4ac6b2c8-78a4-4e25-98fc-6972031d0de9",
 CellID->138277747],
Cell[132485, 3436, 704, 16, 70, "ExampleText",ExpressionUUID->"1580431e-811f-422d-b00d-a0c6a16db2c3",
 CellID->456787775],
Cell[CellGroupData[{
Cell[133214, 3456, 1676, 30, 70, "Input",ExpressionUUID->"ba8e67f1-f726-45cd-b293-1394d561a3c8",
 CellID->2125580047],
Cell[134893, 3488, 14735, 350, 70, "Output",ExpressionUUID->"f22ca274-84d2-421d-b5e0-df3eb3685e4e",
 CellID->1375858424]
}, Open  ]],
Cell[149643, 3841, 1264, 25, 70, "ExampleText",ExpressionUUID->"b91064f3-648e-4688-8029-679e6600661f",
 CellID->445725729]
}, Open  ]],
Cell[CellGroupData[{
Cell[150944, 3871, 321, 6, 70, "ExampleSubsection",ExpressionUUID->"ef20672c-a368-4625-907f-a1b8c82a5ab7",
 CellID->1295379749],
Cell[151268, 3879, 900, 20, 70, "ExampleText",ExpressionUUID->"3689013c-2cba-476f-a0e5-0efc2ffdf115",
 CellID->952059570],
Cell[152171, 3901, 249, 4, 70, "ExampleText",ExpressionUUID->"921bff79-03e0-419c-a247-1f3d3bc39d89",
 CellID->584088923],
Cell[CellGroupData[{
Cell[152445, 3909, 1142, 18, 70, "Input",ExpressionUUID->"a458a319-0c72-442b-a530-564e4dee654c",
 CellID->9329563],
Cell[153590, 3929, 10831, 282, 70, "Output",ExpressionUUID->"8a8ddbcb-0e13-4247-bfab-ac0cab03703c",
 CellID->1264577013]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[164470, 4217, 330, 6, 70, "ExampleSubsection",ExpressionUUID->"418b299e-018d-4af5-a638-aba0308851b5",
 CellID->1262176224],
Cell[164803, 4225, 553, 12, 70, "ExampleText",ExpressionUUID->"64434633-b536-4fb4-b0d2-c438854566e6",
 CellID->177978547],
Cell[CellGroupData[{
Cell[165381, 4241, 1261, 20, 70, "Input",ExpressionUUID->"9442c80d-acbf-4264-8fae-d704d68da084",
 CellID->626042822],
Cell[166645, 4263, 17574, 455, 70, "Output",ExpressionUUID->"c75cc750-aa7d-41dd-b272-3c8f3c2aea5e",
 CellID->1179500537]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[184268, 4724, 331, 6, 70, "ExampleSubsection",ExpressionUUID->"e476d875-fdbe-4619-89cc-418b9ddf9431",
 CellID->552331702],
Cell[184602, 4732, 635, 12, 70, "ExampleText",ExpressionUUID->"2ea8170b-9a6d-4e1e-9ea9-d76557b77ba4",
 CellID->483608670],
Cell[CellGroupData[{
Cell[185262, 4748, 1169, 24, 70, "Input",ExpressionUUID->"b31a479f-436a-407c-9199-0cdcfc8a2b66",
 CellID->10553423],
Cell[186434, 4774, 4830, 116, 70, "Output",ExpressionUUID->"cd022816-8b3a-4daf-902b-56911c7f5507",
 CellID->1138353631]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[191303, 4895, 248, 5, 70, "ExampleSection",ExpressionUUID->"fc082d79-d2c9-4b43-ac37-6767621715ab",
 CellID->258228157],
Cell[191554, 4902, 259, 5, 70, "ExampleSection",ExpressionUUID->"780004cc-efca-4efb-8942-8789f57de4f0",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[191838, 4911, 252, 5, 70, "ExampleSection",ExpressionUUID->"aebeeec0-a44d-48f4-9c02-c2e2cf6d14cf",
 CellID->1305812373],
Cell[192093, 4918, 226, 3, 70, "ExampleText",ExpressionUUID->"e43e2a95-4083-4de2-8eb3-20ea5116c602",
 CellID->2070466944],
Cell[CellGroupData[{
Cell[192344, 4925, 824, 13, 70, "Input",ExpressionUUID->"3b96acb8-a7d0-42ae-badf-d428ab97b9d8",
 CellID->810562989],
Cell[193171, 4940, 50401, 1349, 70, "Output",ExpressionUUID->"cc7eb47a-c049-467e-9dd9-f0857a722dc1",
 CellID->1682378531]
}, Open  ]],
Cell[243587, 6292, 1450, 35, 70, "ExampleText",ExpressionUUID->"ef1e92f7-e4d2-465c-b8ca-83627cf4cfff",
 CellID->993671121],
Cell[CellGroupData[{
Cell[245062, 6331, 1218, 24, 50, "Input",ExpressionUUID->"de790b46-6dd4-42f6-b0dd-d71ee2d310aa",
 CellID->1099474537],
Cell[246283, 6357, 49644, 1347, 844, "Output",ExpressionUUID->"91b01248-3306-43b8-b1e4-ef468c5637a1",
 CellID->499130943]
}, Open  ]],
Cell[CellGroupData[{
Cell[295964, 7709, 323, 6, 24, "ExampleSubsection",ExpressionUUID->"6a961275-f1cf-479e-8921-c5333042398e",
 CellID->384707429],
Cell[CellGroupData[{
Cell[296312, 7719, 2600, 54, 130, "Input",ExpressionUUID->"359bf7a5-2969-4594-8e87-9c6e03165e91",
 CellID->1804676257],
Cell[298915, 7775, 10812, 284, 200, "Output",ExpressionUUID->"8af2b6c5-8b46-4d10-8485-53f61141d6a8",
 CellID->2136578261]
}, Open  ]],
Cell[CellGroupData[{
Cell[309764, 8064, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"70f8e90d-c1d9-4ef4-a263-648080b9c3fb",
 CellID->736637605],
Cell[CellGroupData[{
Cell[310031, 8073, 2156, 39, 145, "Input",ExpressionUUID->"eace6d7c-1442-4bbe-8c2e-e6044974d953",
 CellID->425002280],
Cell[312190, 8114, 10645, 280, 196, "Output",ExpressionUUID->"143ad88c-3063-40be-96d3-192435c0a654",
 CellID->1991587984]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[322886, 8400, 257, 5, 33, "ExampleSection",ExpressionUUID->"80bea25c-e3b4-48fd-bb77-7bd28ed38bfc",
 CellID->1653164318],
Cell[323146, 8407, 249, 5, 21, "ExampleSection",ExpressionUUID->"2d72ac3b-b0a3-42e9-8a01-2a6663efd341",
 CellID->589267740],
Cell[CellGroupData[{
Cell[323420, 8416, 375, 8, 21, "ExampleSection",ExpressionUUID->"f131a1f7-a512-4a3d-a508-359c3a229082",
 CellID->2048971458],
Cell[323798, 8426, 5339, 115, 535, "Input",ExpressionUUID->"940c534d-3b37-4e8f-aa2c-3d85cdb1fadb",
 InitializationCell->False,
 CellID->1780279551],
Cell[329140, 8543, 24462, 512, 2645, "Input",ExpressionUUID->"ed46f32f-1720-4790-865e-524a4176d54c",
 InitializationCell->False,
 CellID->268760006]
}, Closed]]
}, Open  ]]
}
]
*)

